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INTRODUCTION 


COURSE OBJECTIVES 


Course Overview 


This is where you start the course. 


This course is designed to enhance the technical and profes- 
sional skills of the RPG programmer by adding an understand- 
ing of RPG Ill. It assumes prior knowledge of the RPG I 
lanaguage and only addresses the enhancements found in 
RPG Il. 


The purpose of this course is to teach you to write, test, and 
maintain RPG Ill programs for the System/38. Another purpose 
of the course is to acquaint you with reference material appli- 
cable to writing RPG Ill progrms. Machine exercises are pro- 
vided to give you the experience of writing, entering, 
compiling, and testing your programs on an IBM System/38. 


The RPG Ill language provides the programmer with many new 
capabilities such as full procedural file processing — the capabil- 
ity of controlling input through the calculation specifications. In 
addition, RPG Ill contains operation codes that support struc- 
tured programming. 


After completing this course, using System/38 reference mate- 
rial, you should be able to: 


e Code, enter, compile, and test RPG Ill programs for: 
— Normal inquiry 
— Inquiry with update 
— File maintenance 
— Use of data areas and data structures 


e Receive and pass parameters in communicating with other 
programs. 


e Structurally develop a flowchart for an application program. 


e Use a structured flowchart as documentation to code, enter, 
compile and test RPG Ill programs. 


e Process a subfile using the RPG Ill language. 


e Write an error handling subroutine in an RPG Ill program. 


Course Overview 1 


COURSE TOPICS a 


The following topics are presented to help you meet the objec- 
tives of ‘‘System/38 RPG Ill and Structured Programming.’’ 


Full Procedural Processing 


Work Station File Processing 


Data Base File Processing 


Structured Programming 


Structured Program Operation Codes 


Coding For Subprograms 
RPG III For Subfiles 


Data Areas 


Local Data Areas 


Data Structures 


File Exception Errors 


Program Exception Errors 


Multiple Device Files 
Commitment Control ~ 
Program Described Work Station Files 


Printer Device Files 
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C COURSE STRUCTURE 


Video presentations are included in the study materials to fur- 
ther clarify and supplement some concepts covered in this 
course. 


Video Presentations 

The video presentations are used in the following ways: 
e To introduce a topic 

e To present a single concept 

e To summarize key items 


This symbol is used to indicate when you should view a video 
presentation. 





Module Texts 


The 13 module texts for this course are listed in the following 
table. The time shown is the estimated time for the completion 
of each module. Your time may differ from this time. Remem- 
ber, one of the advantages of a self-study course is that you 
can study at your own pace, so take the time to understand 
the material, even though it may take you longer than 
estimated. 


= Module Number and Title 


Course Introduction 

Procedural File Operations 

Structured Programming Concepts 
Structured Programming Implementation 
Program Compilation and Testing 
Subprograms 

Subfile Programming 

Data Areas 

Data Structures 

Handling Exception Errors 

Additional RPG Ill Functions 

Program Described Work Station Files 
Printer Device Files 


NO 


1 
2 
3 
4 
5 
6 
7 
8 


Nm —- Oo © 





= 32 3A NNNANNW 


— 
OO) 


Course Overview 3 





polio 


(\ 


Naz) 


Student Materials Book 





The Module Text is your primary source of course information. 
It guides you through the material and directs you to the other 
components of the course. The module texts are used by other 
students, so please do not write in them. 


Each of the Modules is structured in the same manner. 


Unit 1 is always an Overview Unit. It contains a purpose that 
provides a brief explanation as to why the module was written, 
the estimated time it takes to complete the module, a state- 
ment of the objectives that tell what you can expect to be able 
to do after completing the module, and a list of terms that are 
introduced in the module. 


Unit 2 is a Topical Unit. You will find one or more topical units 
in a module. Most of the unit consists of detail material and a 
presentation of the topic. A topical unit ends with a summary 
of the major items presented in the unit. The summary may 
take the form of a written summary, a progress check (to be 
explained later), an exercise, or all three. 


The last unit is a Summary Unit. Not every Module Text has 
one. When used, it will summarize all the units that were in the 
module text and/or will provide you with a module exercise. 


This symbol is used in the module texts to indicate material 
you may want to skip because you are familiar with the 
material. 


The Student Materials Book (SMB) is yours to keep as well as 
materials used in desk and machine exercises such as coding 
sheets and program listings. Each of the chapters in the SMB 
corresponds to one of the module texts. In each chapter, you 
will find a reprint of the Module Introduction and the Module 
Summary of the corresponding module text. You may also find 
illustrations, exercises, progress checks, and summaries relev- 
ent to the module. 


Each chapter in the SMB contains pages for your personal 
notes. Use these pages rather than separate sheets of paper 
so that your notes automatically become part of the chapter for 
which they were written. 


The Student Materials Book provides you with a future refer- 
ence to the material presented in this course. 


The symbol you see at the left is used throughout this course 
every time a reference is made to the Student Materials Book. 
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J 





C 


Exercises 





Reference Material 





Progress Checks 


To reinforce the material presented in this course, there are ex- 
ercises for you to perform. These exercises take the form of 
coding (pencil and paper) exercises and machine (keying) exer- 
cises. You are provided with complete instructions in the mod- 
ule text as to when an exercise is to be done. The instructions 
for all exercises are in the Student Materials Book. Your Ad- 
ministrator has the solutions for the exercises. 


This symbol is used to indicate a coding exercise. 


This symbol is used to indicate a machine exercise. 


You may be directed to read some reference material. This 
may take the form of optional reading or additional information 
for a given unit. 


The reference material indicated by the symbol to the left is 
found in the Guided Learning Center Resource Library and you 
are directed to it by topic, book title, and form number. Should 
you need help in locating any information, do not hesitate to 
ask your Administrator. 


The summary of a unit is a written review and an activity. The 
activity may be an exercise to perform or may take the form of 
something called a Progress Check. A progress check is a se- 
ries of questions about the material you have just covered. 


Progress Checks are identified with this symbol. The questions, 
along with space to answer them, are found in your Student 
Materials Book. The answers, along with any appropriate dis- 
cussion, are found in the module text. 


Continue with the Module 1 Course Introduction on the 


next page. 
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Chapter 1. Module 1 - Course Introduction 


MODULE PURPOSE 


This module is a short review and progress check of the pre- 
requisite material. 


TIME ESTIMATE 


45 minutes 


MODULE OBJECTIVES 
After completing this module, you should be able to: 
e State four types of DDS entries. 
e State the purpose of a subfile. 


e State two testing functions. 





Module 1 1 


At this time start your study in the Module 1 text of this 
course. 


-1 


Progress Check: Unit 1. 


Read each question carefully. Record your answers in the space 2 
provided. 


1. State how records may be accessed from a data base file. 


2. List four types of entries for the DDS when describing data 
base files? 


3. State why the record format name should not be the same } 
as the file name. ) 


4. What are the functions of the Source Entry Utility? 


5. Where is the source program stored using the Source En- 
try Utility? 
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6. How is the RPG III object program given a name? 


7. What is the purpose of a subfile? 


8. DDS require two record formats for a subfile. What are 
the two formats and the function of each? 


9, Why are breakpoints used in a program? 


10. In debug mode, will files located in production libraries be 
updated? 


After you complete the questions, return to the Module 1 


Text to review your answers. 





Module 1. 1-3 


NOTES 
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Chapter 2. Module 2 - Procedural File Operations 


MODULE PURPOSE 


This module discusses the operation codes for work station file 
processing and data base file maintenance. It further shows 
the flexibility of RPG Ill enabling you to control input/output 
operations from calculation specifications within the RPG Ill 
logic cycle. 


TIME ESTIMATE 
1-1/2 hours 


MODULE OBJECTIVES 


Upon completion of this module with the aid of available refer- 
ence material you should be able to: 


e State two benefits of externally described files. 


e Code the file description statements for data base and work 
station files. 


e Name at least one operation code that must precede a data 
base file update operation. 


e List the operations to force records out to the data base. 


Module 2 2-1 


TERMS 
The following terms are defined/described in this module: S 
e Full Procedural File | 
e Program Described File 
e Externally Described File 
e EXFMT 
e UPDAT 

CHAIN 

WRITE 

e DELET 

e KLIST 

e KFLD 

e FEOD 

e CLOSE 

e OPEN 
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FULL PROCEDURAL PROCESSING 


Cc What ts it? 


It is programmer control of file processing. A full procedural 
file tells the compiler input is controlled by the programmer 

in calculation operations. The normal program cycle exists, but 
file processing occurs at detail or total calculation time. 


In the figure below, the shaded areas are bypassed for a full 
procedural file. 


fo” START =~ 


7 DETAIL 1 DETAIL 
CALCULATIONS OUTPUT 
G 
MOVE READ 
FIELDS RECORD 
NO 3. TOTAL 
~ CALCULATIONS 
~ END YES J 
PROGRAM WN 5 LAST 
RECORD 4 TOTAL 
? as OUTPUT 


**Steps Ej and &@ - segments of the logic cycle that are ignored 
when full procedural file has been specified as file designation. 
A file designated as full procedural must have its records read 
by the calculation specifications. 


. For additional information, see the ‘‘RPG Logic Cycle” 
chapter in the IBM System/38 RPG Ill Reference Man- 
ual and Programmers Guide, $C21-7725. You will 





find this reference manual in the Guided Learning Cen- 
ter Resource Library. 
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UNIT 2 SUMMARY 


You select your programming choice through the file descrip- , 
tion specifications. ) 


FILE HANDLING WITHIN A PROGRAM 


1. USING THE PROGRAM CYCLE 
2. FULL PROCEDURAL PROGRAMMING 





Both program described and externally described files can be 
processed in the two ways indicated above. Full procedural and 
externally described choices are independent of each other. 

In other words, they can be used together in a program or one 
without the other. 


The file description specification also determines how data is 
referenced. 


e PROGRAM DESCRIBED 
— DATA IS ACCESSED BY FILE NAME ONLY 
— INPUT/OUTPUT SPECIFICATIONS ARE REQUIRED 
e EXTERNALLY DESCRIBED 2 


— DATA IS ACCESSED BY FILE NAME OR RECORD FORMAT 
NAME 


— INPUT/OUTPUT SPECIFICATIONS ARE NOT REQUIRED 
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Progress Check: Unit 2 
( Record your answers in the space provided. 


1. When using full procedural file processing why must the 
LR indicator be set on to end the program? 


2. List two benefits of externally described files. 


3. Using the coding sheet below, code: 
the file descriptions for: 


— A full procedural data base file named POLITM used for 
w file maintenance (add, change, delete). 


— A work station input/output file named PODUPD. 


Both files have been externally described. 











Mode of Processing File Addition/Unordered 


Number of Tracks 
for Cylinder Overflow 





File Designation Length of Key Field or 
of Record Address Field 
End of File 
Record Address Type Number of Extents 
Filename Sequence Type of File 
File Format w Organization 


6 or Additional Area 


Device 





Tape 
Rewind 
File 
Condition 
U1-U8, 
UC 





Overflow Indicator 


Key Field 
Starting 
Location 


ff 
| : pac eda eRe dell sti bet Eee 
Ree ERE EERE | | age 
me 5 Re A cd 

es a Eee | 


Record 
Length 


Extension Code E/L 


1/X/D/T/R/ 


u. 
™~ 
oO 
™~ 
™ 
ac 
™ 
1S) 
™ 
2) 
™—™ 
Qa 


1/0/U/C/D 
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After you complete the questions, return to the Module 2 


Text to review your answers. 





NOTES 


(SR IS 001 Fg NS SPIT 
—_<_ OOOO 


2-6 IBM System/38 RPG Ill and Structured Programming 
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WORK STATION FILE PROCESSING 


You may use the following operations to process your work 
station files. 


WORK STATION INPUT/OUTPUT OPERATION 


Operation Program Full 
Code Cycle Procedural 
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Progress Check: Unit 3 


Record your answers in the space provided. 





1. Why does ADD on an output specification provide you with 
more control than WRITE in calculation specifications? 


2. Name at least one operation code that must preceed the 
UPDAT operation code and why? 


3. Why must you reposition the file after an unsuccessful READ? 


4. What are the operation codes to force data base records to 
auxiliary storage? 


When you have completed the questions, return to Module Text 


2 to review your answers. 
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NOTES 
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MODULE SUMMARY 


Module 2 has illustrated that the need for input and output } 
specifications is reduced or eliminated using RPG Ill. The file 
processing operations allow flexibility and control. 


Full procedural processing. 


Records may be updated in calculations or on output specifi- 
cations. 


Records may be accessed by file name or record format 
name (choice only for externally described files). 


You can open your own files or let RPG Ill do it. 
File pointer can be set/reset by operation codes. 


Files can be logically closed by FEOD. 


You now know how to control what records are read and when 
they are read. Next, you will look at a method of providing 
this control when full procedural file processing is used. 


2-10 IBM System/38 RPG III and Structured Programming 





The following chart summarizes the operation codes discussed 
in module 2. 


OPERATION 


OP PROGRAM FULL WORK DATA 
CODE CYCLE PROCEDURAL STATION BASE 


x< 


xX 
x 
x 
x 
x 
x 
xX 
xX 
Xx 
xX 
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Module 2 has also illustrated the operations for work station 
file processing and data base file maintenance with new and 
enhanced operation codes as shown in the following example. 


ay yi _| _sdY 
L. : Y 
~ 
k] Option cy 
ly ON ay 41 42 43 44 45 46 W | sas 54 55 56 57 58 59 ]60 61 62 63 64 65/66 Ys 0 72173 74 
Yy; 

jaa) DISK ITV TT AA LIL 
Ally SAY Pia ad 









SSR 






YworksTMy ||| tii t TA 
5/ANKM000 AGGRO 


















Factor 1 Operation Factor 2 





Sar 2)is 


Low | Equal 
56 57158 59 

















2} Decimal Positions 
% Half Hasta (H) 


23 24 25 2 7 38 39 40 41 42/43 44 45 46 4 


TLL exFmreromer TTT TTT TTT 
Lid TT CMA WORDDITe! | tit | | ttt 
[i]t | WalieloRplomel | | tt ttt tt 
TTT TTT YT eerie | ttt tty ty 
TTT oebiairorboprel TTT TTT TT 
TILT TTT TTT ETE 
CCC ORER Cee mens CCC 
LIT TTT TTT TT rer TT | Polrwieiel | 
tT ET TT ERED) TT TT Timi Ry | 






i ee 
ee a eae a a ee 
ea eee Ss 
(Ea a a a | 
(GR fas 5) 
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Chapter 3. Module 3 - Structured Programming Concepts 


C 


MODULE PURPOSE 


Module 3 discusses the theory and the practical application of 
structured programming. The module further shows why struc- 
tured programming was developed and what benefits you should 
achieved by using it. 


TIME ESTIMATE 


2 hours 


MODULE OBJECTIVES 
Upon completion of this module, you should be able to: 
e List the elements of a proper program. 
e Name and draw the three node types. 


e Use the nodes to construct the five structured programming 
figures. 


w e Using structured programming figures, draw a structured 
flowchart. 


Module 3 3-1 


TERMS 
These terms are described/defined within the module. J 
e Structured Theorem 
e Boolean Logic 
e Proper Program 
e Node 
e Predicate 
e Collector 
e Function 
e IFTHENELSE 
e DOWHILE 
e DOUNTIL 
e CASE 
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VIDEO INTRODUCTION 


Structured programming Is a style of programming in which 
the program is organized based on the structure of a simple 
sequence of functions, selection of functions, and loop control. 


The video you are about to see introduces the concept of 
structured programming and the building blocks of the struc- 
tured programming figures. 


Video Summary 


The video presented the fundamental elements (nodes) of the 
structured programming figures: 


e the function or process mode 
e the predicate mode 
e the collector node 


The remainder of this module concentrates on using these 
control figures in developing a structured programming flow- 
chart for a data base application. 
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FLOWCHART 
STRUCTURED PROGRAM } 
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Progress Check 
Record your answers in the space provided. 


1. What are the two main characteristics of a proper program? 


2. Name and draw the three fundamental nodes that are used 
to construct the structured programming logic figures. 


Module 3 3-5 


3. Name and draw the structured programming logic figures, 
using the fundamental nodes. ) 


When you have completed the questions, return to Module 
Text 3 to review your answers. 
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NOTES 
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Desk Exercise 


Structured Program Flowchart: 
Open Purchase Order File Update. 


The purpose of this exercise is for you to become familiar 
with the structured programming technique. You may wish to 
refer to the example that we did in Module Text 3 as you do 
this exercise. 


This exercise is a file update program of an Open Purchase 
Order file. The system has an Open Purchase Order file contain- 
ing outstanding purchase orders. The Open Purchase Order 
file is a logical file POLITM which is built over two physical 
files: a purchase order summary file, POPSUM, and a pur- 
chase order detail file, POPDTL. 


See diagram on next page for illustration of the logical and 
physical files. 


There is one summary record and possibly multiple detail 
records for each purchase order in the Open Purchase Order 
file. A summary record always has at least one detail record. 
As the merchandise arrives in the receiving department, a clerk 
uses the Open Purchase Order File Update program to enter 
the quantity received. 
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The following blank pages are provided for you to draw your 
flowchart. 
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FLOWCHART EXERCISE 
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FILES 


SOURCE FILE= RPGSRC eGLCRPG MEMBER: POLITM 
SEQNBRe eee Ce l e @ee 2 @o@e@e 4 e#ee eee 5 e2ese ees @ 6 e 


100 OROSUM PFILE(POPSUM) 
200 PCRNBR 
300 ORDOTL PFILE(PCPOTL) 
400 PORNBR 
500 ITMNBR 


SGURCE FILE: RPGSRC eGLCRPG MEMBER: POPSU™M 


SEQNBR%ecee o2@ee l e 2 eee 3 Ce eee 4 eee Ce 5 e®e@ eevee 6 e 
100 
200 
300 
400 
500 
600 
100 
800 
900 

1000 

1100 


REFC(APPFREF ) 
R OQROSUM TEXT(C*PO SUMMARY RECORD ®) 
PORNBR 


VNCNBR 
VNONAM 
MERCH 

DATORD 
VNOSLS 
VNDACD 
VNDPHN 
STATUS 


rPrrrprrYrrrprr>rp yp 
DPDRTPPDRARARADNX 


SGURCE FILE: RPGSRC eGLCRPG MEMBER: POPOTL 
SEQNBR< eee eee l e @ e e 2 #e@ 4 @ e #@e@e 5 @®e@ eee 6 oes e @es@ T eevee 


100 
200 
309 
400 
500 
600 
TOO 
800 
900 
1000 
1100 
1209 
1300 
1409 


REF CAPPFREF}) 

R QROOTL TEXT(*PO LINE ITEM RECORD®) 
PORNBR 
VNONBR 
TTMNBR 
ITMCSC 
QTYCRO 
ITMCST 
ITMAMT 
DEPTNC 
CATNBR 
DATREC 
QTYREC 
STATUS 


>PrPprprprrprprprr rp yYp 
RDEDAFRRERKERRERD 
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Given the following program requirements, structurally flow- 
chart the program logic for the Purchase Order Update pro- : 
gram. 


1. The program initially displays a prompt screen which al- 
lows the operator to enter the purchase order number, the 
item number, and the quantity delivered or to end the job. 
The prompt screen layout is on the next page. 


2. The program is to validate the purchase order number and 
item number that are entered. 


a. First access the detail record which is keyed on pur- 
chase order number and item number. If the detail re- 
cord cannot be found, access the summary record 
(which is keyed on purchase order number). 


b. If neither the detail nor the summary record can be found, 
display the message: “Invalid purchase order number.” 


c. If the summary record can be found but not the detail 
record, display the message: “Invalid item number.” 


3. If the detail record is found: 


a. Update the quantity received field (QTYREC) in the de- 
tail record by adding to it the quantity delivered 
(QTYDEL) that was entered by the operator. 


b. If the quantity received (QTYREC) is equal to the quan- J 
tity ordered (QTYORD), update the status code with a ““C” . 
and the date received with today’s date. 


c. Update the detail record. 
4. Redisplay the prompt screen. 
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FLOWCHART EXERCISE 
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MODULE SUMMARY 


The goal of structured programming is to provide a systematic, 2 
quality controlled method of writing programs. 


The use of structured programming brings the opportunity of 
greater precision and reliability to programming than has been 
attainable in the past. This occurs because its use results in 
programs which can be more easily read, modified and main- 
tained by other programmers. As you have studied the struc- 
tured programming conventions, you should use the basic struc- 
tures for: 


e Sequential functions 
— SEQUENCE 


e Conditional operations 
— IFTHENELSE 
— CASE 


e Repetition 
— DOWHILE 
— DOUNTIL 


The next module (Module Text 4) discusses implementing the 
structured programming theory in RPG III - how your flow- 
chart is converted into RPG Ill code. 
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Chapter 4. Module 4 - Structured Programming Implementation 


MODULE PURPOSE 


Module 4 illustrates how structured programming is imple- 
mented in RPG Il. 


TIME ESTIMATE 


2 hours 


MODULE OBJECTIVES 
Upon completion of this module, you should be able to: 
e List 4 benefits of structured programming. 


e Write the difference between the DOWHILE and the DOUNTIL 
operations. 


e Code an RPG Ill structured program from a structured flow- 
chart and the associated file and record information. 
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TERMS 
These operation codes are described/defined within the module. 2 
e IFxx 
e ELSE 
e END 
e DOUxx 
e DOWxx 
e CASxx 








4-2 IBM System/38 RPG III and Structured Programming 


VIDEO INTRODUCTION 


‘ Structured programming is a style of programming in which 
the program is organized based on structured programming 
logic figures. 


The video you are about to see illustrates the RPG II] opera- 
tion codes for these structured programming logic figures. 


Video Summary 


The video presented the structured programming figures with 
their associated operation codes. The presentation described 
and illustrated the use of the structured statements. 
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UNIT 2 SUMMARY 


You have studied the relation of the RPG Ill structured opera- 
tion codes to the structured logic figures. These figures pro- 
vide a set of guidelines which when understood and followed 
result in the creation of structured programs. 





It is entirely possible that you have been organizing your pro- 
grams into a logical structure. In that case, you are already 
using a form of structured programming. However, if everyone 
uses the same convention or guidelines, then it would be 
easier for us to read and understand anyone’s programs. 
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Progress Check: Unit 2 
Record your answers in the space provided. 


1. List two ways in which structured programming aid the pro- 
grammer in debugging and maintaining a program? 


2. How does a DOWHILE differ in logic from DOUNTIL? 


3. List at least four programming benefits of structured 
programming. 


4. What instructions are executed if the test is false in an 
IFxx operation? 


| When you have completed the questions, return to Module 
Text 4 to review your answers. 


Module 4 4-5 





NOTES 
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Module 4 
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Desk Exercise — Open Purchase Order File Update 


The purpose of this exercise is for you to use the RPG Ill 
operation codes that support structured programming (DOWxx, 
IFxx, etc.) and to become familiar with the function and cod- 
ing of those operation codes. 


You may use either the structured flowchart you developed in the 
Desk Exercise for Module 3 or the flowchart and HIPO charts 
given on the next two pages. 


1. Name your program POR1xx 


NOTE: Replace xx with your first and last initials. This is true 
throughout this course. Do not confuse this xx with the xx 
on the structured programming operation codes. 


2. The display file specifications are provided for you in the 
RPGSRC source file in the member PODO10. See the screen 
layout and the data description specifications following the 
HIPO charts. Name your display file POD1xx. 


3. The Open Purchase Order file POLITMxx you will update is a logi- 
cal file based on the two physical files POPSUMxx (summary 
records) and POPDTLxx (detail records). You will have your own 
set of files. 


4. See the data descriptions specifications for these files in this 
exercise. 


The field names you use are as follows: 


Purchase Order Number PORNBR 
Item Number ITMNBR 
Quantity Delivered QTYDEL 
Quantity Received QTYREC 
Quantity Ordered QTYORD 
Date Received DATREC 
Status of Record STATUS 


You will enter, compile and execute this program in Module 5. 


When you are finished coding, you may wish to review your 
program with a solution that the Administrator has. 


You will need file description and calculation specification cod- 


ing sheets for this exercise. Please ask your Administrator for 
these forms. 
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MODULE 3 DESK EXERCISE SOLUTION: 
STRUCTURED FLOWCHART 





START 


OPEN 
FILES 


DISPLAY 
PROMPT 


DISPLAY 
PROMPT 


Note on the display file 
specifications the two 
no-record-found indicators 







































SET OFF and their associated UPDATE 
-NO-DETAIL- error messages. 
DETAIL 
RECORD RECORD 
INDICATOR 
















SET ON NO- 
SUMMARY- 
RECORD 
INDICATOR 









MODIFY 
STATUS & 
DATREC 
FIELDS 









RECORD 


F FOUND QTYREC F 







SET ON NO. 















ACCESS ADD QTYDEL 


SUMMARY gla TO 
RECORD INDICATOR QTYREC 


ACCESS 
DETAIL 
RECORD 





INDICATOR 


CLOSE 
FILES 


C 
: 
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DETAIL DIAGRAM 
OUTPUT PROCESS 





1. DISPLAY PROMPT 


2. IF NOT END OF JOB <7 ———____ 


OPEN -—t" >) =A. READ ORDER DETAIL 
PURCHASE REP oee 


ORDER FILE B. IF DETAIL RECORD NOT 
FOUND 


(1) READ SUMMARY RECORD 

(2) IF NEITHER SUMMARY 
NOR DETAIL RECORD IS 
FOUND, DISPLAY 
SUMMARY ERROR 

(3) IF SUMMARY RECORD 
FOUND NOT DETAIL, 
DISPLAY DETAIL ERROR 





fal 


OPEN 
PURCHASE 
ORDER 


C. IF DETAIL RECORD FOUND, 
UPDATE DETAIL 


3. DISPLAY PROMPT 





EXTENDED DESCRIPTION 
| REFERENCE 


DISPLAY PROMPT FOR INPUT DATA (PURCHASE ORDER NUMBER ITEM 
NUMBER, AND QUANTITY DELIVERED). 


IF END OF JOB, EXIT PROGRAM. 
READ ORDER DETAIL RECORD KEYED ON P.O. AND ITEM NUMBERS. 


| 
| 
| 
| 
| 
IF DETAIL RECORD NOT FOUND, ACCESS SUMMARY RECORD KEYED ON | 
P.O. NO. 
| 
| 
| 
| 


IF NEITHER DETAIL NOR SUMMARY, DISPLAY “INVALID PURCHASE ORDER 
NUMBER.” 


IF SUMMARY NOT DETAIL, DISPLAY “INVALID ITEM NUMBER.” 


IF DETAIL RECORD IS FOUND, UPDATE QTYREC FIELD WITH QTYDEL FIELD.! 
IF QTYREC = QTYORD, UPDATE STATUS CODE WITH A “C” AND DATE RE.) 


CEIVED WITH TODAY'S DATE. , 
REDISPLAY PROMPT SCREEN. | 
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C 


FILES 


PROMPT DISPLAY - PURCHASE ORDER UPDATE 


ROW 


01 


02 


03 


05 


07 


08 


09 


20 


21 


22 


23 


24 


Display Screen Layout Sheet 
COLUMN 
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MEMBER: PQODO1O 


4 @®ee eee 5 eee @2ee 6 e 


REF (APPFREF) 
CAOL(OL *END OF JOB") 
R PRCMPT 
21*GQOO MORNING! TODAY IS* 
45DATE EDTCOECY) 
Z21"°PLEASE ENTER MERCHANDISE DELIVERED® 
21*PURCHASE ITEM QUANTITY® 
21*ORDER NOe NUMBER OELIVERED® 
PORNSR 22CHECK(ME) CMP(NE QO) 
ERRMSG(*INVALIO PURCHASE GROER + 
NUMBER®) 
ITMNBR 35CHECK( ME) CMP(NE QO) 
ERRMSG(*INVALIC ITEM NUMBER ©) 
QATYCEL 48CHECK(ME) CMP(NE O) 
21*TO END THE JOte PRESS CMD KEY le? 


A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
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DATA BASE 


SOURCE FILE: 


SEQNBReecee eee 1 e e e 


SOURCE FILE: 


SEQNBR¥eee 


SOURCE FILE: 


SEQNBR cee eee l @ e e 
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RPGSRC eGLCRPG 


2 3 


100 
200 
300 
400 
500 


ORD SUM 
PCRNBR 
ORDOTL 
PORNBR 
ITMNBR 


RPGSRC eGLCRPG 


2 3 


eee l e e e eee eee 


100 
200 
300 
400 
500 
600 
7100 
800 
900 
1000 
1100 


R QROSUM 
PORNBR 
VNDNBR 
VNONAM 
MERCH 
DATORD 
VNOSLS 
VNOACO 
VNOPHN 
STATUS 


rrrprrrrrrr rp > 
DDRDPWDARARXRX 


RPGSRC eGLCRPG 


2 3 


100 
200 
300 
400 
500 
600 
700 
800 
900 
1000 
1100 
1200 
1300 
1400 


R OCROOTL 
PORNBR 
VNONBR 
ITMNBR 
ITMDSC 
QTYORD 
ITMCST 
ITMAMT 
DEPTNO 
CATNBR 
DATREC 
QTYREC 
STATUS 


rPrPprPrrrrrrrprr>r> 


WDMDDA DDR ERARDD 
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FILES 


POLITMMB 


MEMBER: POLITM 


e e e e 4 eee eee 5 eee eee 6 @ 


PFILE(POPSUM) 


PFILE(POPOTL) 


POPSUM MB 


MEMBER: POPSU™ 


eee eee 4 @#ee eee 5 ee0e @#e0e 6 e e e 


REFCAPPEREF ) 
TEXT(C*PQ SUMMARY RECORD®) 


DTL MB 


MEMBER: POPPTL 


@ee 4 @#ee0e eee 5 eee e#@ee# 6 o@ee eee qT eee 


REF(CAPPFREF) 
TEXT(*PO LINE ITEM RECORD® ) 








C 


MODULE SUMMARY 


Module 4 discussed the RPG III operation codes for the struc- 
tured programming figures. You are now at the stage where 
you can begin to test your structured programming techniques. 


Flowcharting does add time to the design process, however the 
coded program should have fewer errors when tested. 


The total number of compilations should be reduced as a result 
of your taking the time to think through your program logic. 


Structured programming is a programmer's tool. Another tool 
available to you as a programmer is the RPG III compiler. 
Module 5 discusses the compiler options, the information on 
the compiler listing, and the System/38 Messages Guide. 
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Chapter 5. Module 5 - Program Compilation and Testing 


L 


MODULE PURPOSE 


Module 5 discusses the information contained on the RPG III 
compiler listing, options available on the Control Language 
Create RPG Program (CRTRPGPGM) command, and the use of 
the System/38 Messages Guide. 


TIME ESTIMATE 


3 hours and 30 minutes 


MODULE OBJECTIVES 
Upon completion of this module, you should be able to: 
e Identify the sections of the compiler listing. 
e Use the listed information in debugging, if needed. 


e List two reasons why it would be necessary to reference the 
System/38 Messages Guide. 


% e Compile, test, and debug RPG Ill programs. 


Module 5 5-1 


TERMS 
These terms are described/defined within the module. 
e Cross Reference Listing 
e Decimal Data Error 
e Level Checking 


e Generation Level 
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MACHINE EXERCISES INTRODUCTION 


C The exercises used in this course are based on an Accounts 
Payable/Purchase Ordering application. This application con- 
tains realistic requirements that have been simplified - so that 
the exercises are practical and yet workable within the con- 
straints of this course. 


The following naming conventions are to be used in this course 
for your objects: 


For programs - AALSxx 


Where AA its the application 
Example: AP - Accounts Payable 
PO - Purchase Orders 
BI - Billing 
L is the source language 
Example: R - RPG Ill 
L - Control Language 


C - COBOL 
D - DFU 
Q - Query 


S is the program number. 
xx is your identification (first initial of your first and last 
names.) 


Example: APR4BT is Accounts Payable program number 4 
wv for student BT (Bill Tate) written in RPG III. 


For files - AATDDDxx 


Where AA is the application 
Example: PO - Purchase Orders 
SA - Sales Analysis 
IN - Inventory 


T is the file type 

Example: P - Physical Data Base File 
L - Logical Data Base File 
D - Display File 
W - Printer File 


DDD is the alphameric file name 
Example: SUM - Summary File 
DTL - Detail File 
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You may use the following objects in the GLCRPG library: 


APPFREF - Accounts Payable/Purchase Order field reference 2 
file 


APLDUE - Logical Open Vendor Invoice File - keyed on in- 
voice number within due month/day within due year 


APPOPY - Open Vendor Invoice File - in arrival sequence 
POPSUM - Purchase Order Summary File - in arrival sequence 
POPDTL - Purchase Order Detail File - in arrival sequence 


POLITM - Logical Purchase Order File - built over the two physi- 
cal files POPSUM and POPDTL. The summary records 
(from POPSUM) are keyed on purchase order number 
and the detail records (from POPDTL) are keyed on 
item number within purchase order number. 


POLONO - Logical Purchase Order File - built over the two 
physical files POPSUM and POPDTL. The file has 
an access path keyed on purchase order number. 


RPGSRC - Source File - contains all of your source members 
for the machine exercises; each member will have 
the same name as the object you are creating. 


The library you will be working with is the GLCRPG library. 
Your source file is RPGSRC. 


Use APPFREF field reference file for field definitions. The field 
reference file is listed in Appendix A. 
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Other objects that you will be using in the machine exercises: 
e Job Description - GLCRPG 

e Output Queue - GLCOUTQ 

e Profile and Password - GLCRPG 


If you wish to know more about your field reference file, job 


description, and user profile, please look in Appendix A of 
this book. 
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Please note the following for all exercises: 


All objects are to be created in the GLCRPG library. All source 


members are to be created in RPGSRC source file of the 


GLCRPG library. 


You will get the Programmer Menu shown below when you 

sign on with the password GLCRPG to do your machine exer- 
cises. Note that all the entries described above are already on 
this menu and that you will be using the GLCRPG job descrip- 


tion for your batch jobs. 


FROGRAMMER MENU 


Select one of the following: 
1. Design/execute DFU app 
. Design/execute query app 
. Create object 
. Call program 
. Execute command 
». Submit job 
. Display submitted jobs 
8. Edit source 
. Design display format 
. Display Menu 
. Sign off 


Types: BAS, BASP, BSCF, CEL, CL, 


FRTF, QRY, RFG, RET, TXT 
Option: __ 
Command: 


Src Lib: GLCRFG 


CF3-Command entry CF4~Frompt 
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SYSTEM: ATLEDDEV 


(app), , options) 

(app), , (options) 

object name, type, pgm for CMD, (text) 
program name 

command 

(job name), (command) 


(srcmbr), (type), (text) 

(srcmbr ) 

(menu) 

(*#NOLIST *LIST) 

CLP, CMD, CMNF, DFU, DSFPF, LF, MXDF, FF, 


Log requests: 
Obj Lib: GLCRFG Jobd: GLCRPG 


(3,5 & 6 only) CF6-DSFMSG 





J 





After you have signed on, select option 5 and enter the following 
command: 


CALL RPGID 


The program RPGID presents a display for you to enter your first 
and last initials in order to uniquely identify your exercise material 
in the GLCRPG library. If the initials you enter are already being 
used, you will be asked to enter different identification. 


The program produces a report similar to the sample below. 


WELCOME TO THE SYSTEM/38 RPG III AND STRUCTURED PROGRAMMING COURSE 


START OF MACHINE EXERCISES 


YOUR IDENTIFICATION IS: (xx) 


3/17/83 


47:18:52 





Your compile listings and reports are printed on the work station 
printer in the Guided Learning Center. Please remove the report 
from the printer and give this report to your Administrator. 


All references to the suffix xx in the Student Materials Book refer to 
your identification. 


Machine Exercise - Open Purchase Order File Update 


In this exercise you are to enter, compile and execute the Open 
Purchase Order File Update program you coded in Module 4. Be- 
fore you can compile your program, you must create the files used 
by your program. The first seven steps of the following instructions 
cover file creation. 


Please do not continue with this exercise until you have read and 
followed the instructions above. 


You may find it helpful to have the Source Entry Utility (SEU) Ref- 
erence Manual and User’s Guide (SC21-7722) open to Chapter 5 
when you are instructed to use the Services display. Also, don’t 
forget about the HELP key when you need more information 
about a display. 
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1. On the Programmer Menu select option 8, enter the name 
POD1xx for your display file and DSPF for the type. You are cre- 
ating a new source member for your display file in the RPGSRC 
source file. 


2. When your empty source member is displayed, press Com- 
_ mand key 5 (CMD 5) to get the Services display of SEU. Now 
use Browse/Copy to copy all the data description specifications 
from the source member PODO10 in the RPGSRC file into your 
member. 


After a successful copy, press CMD 5 to get to the Services dis- 
play. Exit the Services display by entering N after Browse/Copy. 
Exit SEU with CMD 1 and by selecting option 2 on the Exit dis- 
play. You may want to request a listing of your source 
member with the Exit display. 


3. Create your display file POD1xx in the GLCRPG library by se- 
lecting option 3 on the Programmer Menu. All the other infor- 
mation needed is already on the display. 


4. Next, you create your own set of data files for this exercise. To 
create your two physical files, POPSUMxx and POPDTLxx, 
select option 5 and enter the following command. Be sure to 
enter the () and your initials with PARM. 


CALL LAB1 PARM(xx) 


5. Select option 8 to create a source member in the RPGSRC file 
for your logical file to be named POLITMxx. Be sure to specify 
the type as LF 


6. As you did in Item 2, use the Services display to copy all the 
data description specifications from the member POLITM in 
the RPGSRC file into your member. After a successful copy, re- 
turn to the edit source display and modify the PFILE parame- 
ters by changing the POPSUM and POPDTL file names to your 
file names POPSUMxx and POPDTLxx. The following example 
shows the changes. 


FILE NAME - POLIT MWWeGLCRPG TYPE OF FILE - LOGICAL 

SOURCE FILE - RPGSRCeGLCRPG MEMBER — POLI TMWW 83/05/05 
TYPE OF DATA - DATA 

OPTIONS - SRC sLIST 

AUTHORITY - SNORMAL 


IBM SYSTEM/38 DATA DESCRIPTION PROCESSOR 


DATA DESCRIPTION SOURCE 


Seece eee l eee eee 2 eee eee 3 eo@ee eee 4 eee eee 5 eee 6 6 @#eso eee T eee 


R ORDSUM PFILE(POPSUMxx eGLCRPG) 
K PORNBR — 

R ORODTL PFILE(POPOTLxx eGLCRPG) 
K PORNBR ~~ 

K ITMNBR 
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10. 


T1. 


Exit SEU as you did in Item 2 and create your logical file 
POLITMxx in the GLCRPG library by selecting option 3 on 
the Programming Menu. Get the listing for the file creation to 
be sure it was successfully created. 


Select option 8 on the Programmer Menu in order to enter 
your program POR1xx as a member in the source file 
RPGSRC. Be sure you enter your specifications in upper case 
because the RPG Ill compiler will not accept lower case 
specifications. When you have entered your program, exit 
SEU. Remember you can request a listing of your program 
from the Exit menu, which you may want to do in order to 
check your program before going on to the next step. 


Create your object program POR1xx in the GLCRPG library by 
selecting option 3 on the Programmer Menu. Be sure your pro- 
gram compiles successfully by checking the compiler listing and 
the messages (CF6-DSP MSG). Do not proceed until it does. 


Run your program by entering option 4 on the Programmer 
Menu. Enter the following receipts. Remember to press 
Field Exit after you enter each value to properly adjust the 
value in the field. 


Purchase Item 

Order No. Number Quantity 
400005 50 5 
400010 75 500 
400015 275 2 


In addition to the above entries, test your program’s error logic 
by entering an invalid purchase order number of 999999 and 
then an invalid item number of 99999. 


The following are suggestions if your program does not run 
correctly. 


lf your program seems to be in an endless loop, use the 
SYS REQ key, then press ENTER and cancel your job from 
the System Request display. 


Usually you can find and correct errors using your program 
listing. Sometimes, though, you may find it helpful to run 
your program in debug mode to locate a problem. If you do, 
you need to specify UPDPROD (YES) with the ENTDBG com- 
mand. For example: 


ENTDBG PGM (POR1xx) UPDPROD (*YES) 
ADDBKP STMT ( 


Also, be sure to execute the ENDDBG command after you 
finish testing your program. 


lf you need fresh data in your files (you must have created the 
files as previously described), enter the following command: 


CALL RESTR1 PARM (xx) 
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12. After you have successfully run and exited your program, 
select option 5 and enter the following command: 


CALL LIST1 PARM (xx) 


The program LIST1 prints a formatted listing of your logical 
file POLITMxx. Sample before and after formatted listings are 
shown below. 


BEFORE 


Po 
NUMBER 


49V00L 


400005 


490010 


409015 


499929 


490025 


VERDCR VENDOR ORDER 
NUMBER NAME AMCUNT 


10 JOHN Me SMITH & SONS 500-00 


FETZNER EFETZNER 


PRAND X BEER 350.00 


MARGARET HART INCe 


PETER VAN RCTH CCRP. 169-50 


PHCTO LABS INC. 


AFTER 


Pf) 
NUMBER 


40uU001 


400005 


400010 


400015 


400020 


400025 


STAFUS ITEM ITEM 
NUMBER DESCRIPTION 


LINED PAPER 
BEAKERS 
ECGERS 
RIBPOANS 


SPQOLS 
INVITATIOCAS 
LACCERS 
FILES 


SCTILES 
CANS 


CARPCTS 
SPINDLES 
MCLCOS 


DISPLAYS 
CABINETS 


PICTURES 


VENDOR VENOOR ORDER 
NUMBER NAME AMOUNT 


JOHN Me SMITH E SONS 500-00 


FETZNER EFETZNER 110.260 


BRAND X BEER 


MARGARET HART INCeo 121.00 


PETER VAN ROTH CQRP. 169-50 


PHOTO LABS INC. 


STATUS ITEM ITEM 
NUMBER DESCRIPTICN 


LINED PAPER 
PEAKERS 
ECGERS 
RIBEONS 


SFCOLS 
INVITATICAS 
LACDERS 
FILES 


SCTTLES 
CANS 


CARPETS 
SPINDLES 
MCLOS 


DISPLAYS 
CABINETS 


PICTURES 
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QUANTITY CLANTITY DATE 
CRCEREC RECEIVED RECEIVED 


C/CC/CC 
C/CC/CC 
7/15/39C 
2/26/45C 


2/C2/8C 
2/12/3C 
€/24/8C 
2/16/3C 


C/CO/SOC 
C€/CO/OC 


2/22/3C 
2/17/3C 
C/CO/CC 


1/23/3C 
C/CL/CC 


2/05/23 





QUANTITY CUANTITY CATE 
CRCEREC RECEIVEC RECEIVED 


c/CO/GC 
c/CO/CC 
2/15/8C 
2/26/8C 


2/C5/a2 
2/12/8C 
2/24/ 3C 
2/16/3C 


2/C5/83 
c/cosoc 


1/23/49C 
C/CO/CC 


2/CS5/3C 





When you have completed the Open Purchase Order Update 


machine exercise, return to Module Text 5 to continue the 
course. 
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Progress Check: Unit 2 
Record your answers in the space provided. J 


1. What information does the Cross-Reference listing provide? 





2. How can you change the terminal severity level of a program? 


3. List the reasons why it would be necessary to reference ) 
the System/38 Messages Guide? 
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NOTES 


J 


J 





w 
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Coding Exercise - Open Purchase Order File Maintenance 


The purpose of this exercise is for you to use the RPG III file proc- J 
essing operation codes WRITE, DELET and UPDAT. You are to use 
structured programming to implement your program logic. 


This exercise is an Open Purchase Order File Maintenance pro- 
gram. In Machine Exercise 1 you updated the open purchase or- 
ders with the quantity received. Now you are to maintain that file: 
1) by adding a new item to an existing purchase order, 2) by delet- 
ing an item from a purchase order, or 3) by modifying the quantity 
ordered of an item in a purchase order. You use the same data 
base files used in the file update exercise. 


You will find documentation (flowchart, screen layout, display DDS 
coding) on the following pages of the exercise. 


1. Develop your program logic using the supplied structured pro- 
gramming flowchart. 


2. The main functions of the maintenance program are to process 
the three types of transaction. 


A. To add a new item record: 


The purchase order number, the item number, and the quan- 

tity are to be entered. Check to make sure the record does 

not already exist before it is added to the purchase order. lf 

the record is found, display error message: CANNOT ADD - 

ITEM ALREADY EXISTS IN PURCHASE ORDER. J 


NOTES: Normally a maintenance program would also refer- 
ence an Item Master file for editing functions. To minimize 
coding, this function has been omitted as well as the 
requirement to include master file information in a new 
item record. 


Remember to put an A in position 66 of the File Description 

Specifications to allow you to add records to an existing file. 
See Position 66 in Chapter 4 of the RPG Ill Reference Manual 
and Programmers Guide (SC21-7725) for information on 

this entry. 
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B. To delete an item record: 


Only the purchase order number and the item number need 
be entered. Verify that the record exists before attempting 
to delete it. If it does not exist, display error message: 
ITEM# OR PO.# NOT FOUND. 


C. To modify an item record: 


The purchase order number, the item number and the quan- 
tity are to be entered. To simplify editing, assume that the 
quantity keyed will not be zero. The new quantity is to re- 
place the quantity ordered (QTYORD) currently in the item 
record. Verify that the record exists. If the record does not 
exist, display error message: ITEM# or PO.# NOT FOUND. 


3. Test your logic by checking your program against the structured 
flowchart. 


When you are done with the coding, ask your Adminis- 
trator for Open Purchase Order File Maintenance coding 


solution in order to check your coding. 


When you are ready, do the Open Purchase Order File 
Maintenance machine exercise that follows. 
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OPEN PURCHASE ORDER FILE MAINTENANCE FLOWCHART (Part 1) 


START 


OPEN 
FILES 


DISPLAY 
PROMPT 











DISPLAY 
PROMPT 





DELETE CHANGE ) 
UPDATE 
RECORD 


DELETE 
RECORD 


OPTION 


ADD NEW 
RECORD 


ACCESS 
DETAIL 


CLOSE RECORD 


FILES 


SET OFF 
ERROR 
INDICATOR 
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OPEN PURCHASE ORDER FILE MAINTENANCE FLOWCHART (Part 2) 





ERROR IND 
*IN20 








t 
ERROR IND ! 
*INIO 

@ 


rc 
) SET ON 
| 
| 


DELETE 


F RECORD T 
FOUND 


SET OFF 


ERROR 


INDICATOR 


DELETE 
RECORD 


F 
a ae ay 


a 


CHANGE 


RECORD T 
FOUND 


UPDATE 
RECORD 
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01 


02 


03 


ROW 


22 
23 


24 
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SCREEN LAYOUT 


Display Screen Layout Sheet 
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e 


DATA DESCRIPTION SPECIFICATIONS 


MEMBER: PODUPDT 


SEQNBRteece eee l eee eee 2 eee eee 3 eee eee 4 eee eee 5 eee eee 6 e 


REFCAPPFREF) 
CAO1L(O1 *END OF JOB") 
R PROMPT BLINK 
22*QOPEN PURCHASE ORDER FILE MAINTENAN+ 
CeE®* 
LO*MAINTENANCE * 
1O0*CQODE OPTIONS® 
15*le ADD AN ITEM (ENTER PeOQeonws ITEM + 
we QTY)? 
15*2-e DELETE AN ITEM (CENTER PeOenwy + 
ITEM 9° 
15*3-e MODIFY A QUANTITY ORDERED + 
(ENTER PeDewy ITEM wy QTY) ® 
13°OPTION PeOer ITEM # qTy® 
DSPATR(HI) 
OPTION LSVALUES(1 2 3) 
PORNBR Z21CHECK( ME} 
ERRMSG(*ITEM #2 OR PeOent NOT FOUND®) 
ERRMSG(*CAN NOT ADC — ITEM ALREADY + 
EXISTS IN PURCHASE ORDER®) 
ITMNBR 31 
NEWQTY 41 
15*TO ENO THE JOB», PRESS CMD KEY le® 
15°TO ENTER A TRANSACTIONe PRESS ¢ 
ENTER® 


100 
200 
300 
400 
500 
600 
100 
800 
900 
1000 
1100 
1200 
1300 
1400 
1500 
1600 
1700 
1800 
1900 
2000 
2100 
2200 
2300 
2400 
2500 


>rrprrrprrrerrrperrprrrrrrprrvrrrrr rp p 
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Machine Exercise - Open Purchase Order File Maintenance 


Sign on by entering the password GLCRPG. 


This exercise provides practice in entering, compiling and run- 
ning the Open Purchase Order File Maintenance program you 
just coded in this module. 


Please read all instructions before doing them. In following the 
instructions you may find it helpful to refer to the more detailed 
instructions of the machine exercise of Module 4. 


1. Select option 8, enter the name PODUPDxx and the type 
DSPF for your display file. 


2. Copy all of the data description specification statements from 
the member PODUPDT in the RPGSRC file into your member. 
These are the only statements you need to create your display 
file. 


3. Select option 3 to create the display file PODUPDxx in the 
GLCRPG library. 


4. You will use the same data base files (POLITMxx, POPSUMxx, 
POPDTLxx) for this exercise that were used in Machine 
Exercise 1. 


Restore these files to their original state by selecting option 5 and 
entering the command: 


CALL RESTR1 PARM(xx) 
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5. Create a source member in the RPGSRC file by the name 
POR2xx, and enter your program. 


6. Create your object program in the GLCRPG library using the 
name POR2xx. Before proceeding be sure your program com- 
piled successfully. 


7. Before executing your program, see the ‘‘BEFORE” listing. 


BEFORE EXECUTING POR2xx 


EXERCISE 2 TEASan.~ 


P VENCOR VENOCR ORDER STATUS ITEM ITEM CUAATITY CLANTITY DATE 
NUMBER NUMBER NAME AMOUNT NUFPBER DESCRIPTICN CRCEREC RECEIVEC RECEIVEC 


400001 10 JOHN Be SMITH €&€ SONS 500200 
25 LINED PAPER C/CO/CC 
15Q 2EAKERS C/CO/OC 
375 ECCERS 3/15/86 
475 RI®830NS 2/26/8C 


4009C5 FETZNER EFETZNER 110.900 
SPCCLS 2/C2/8C 
INVITATICAS 2/12/3C 
LACDERS 2/24/8C 
FILES f 2/16/e8C 


400019 6 “SRAND X GEER 


400015 


MARGARET HART INCe 


bCTTLES 
CANS 


175 CARPETS 


C/CO/CC 
C/co/Ccc 


2/22/3C 


er 


sy *. 
adie, 
™ 5 
L 


250 SPINDLES 1 2/17/8C 
275 K€eCLoS 2 C/CG/AC 


409929 PETER WAN ROTH CORP. 
DISPLAYS . 1/23/3C 
CAaINETS C/CO/CC 


440025 PHOTO LABS INCe 
PICTURES 2/05/3C 





8. Execute your program by selecting option 4 on the Programmer 
Menu. Enter the following maintenance transactions: 


(NOTE: When testing error conditions do not attempt to correct 
the data by entering it as a transaction.) 


Maintenance Purchase Item 
Code Order No. Number Quantity 
1 400001 100 50 
2 400001 25 
3 400001 150 150 
1 400001 375 10 


ERROR-ALREADY EXISTS 
400001 99999 

ERROR-NOT FOUND 
400001 99999 10 

ERROR-NOT FOUND 


© NR 
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9. Enter the command: 
CALL LIST2 PARM(xx) 


and compare your listing to the “AFTER” listing. Your 
listing should reflect the maintenance transactions entered. 





AFTER EXECUTING POR2xx 


EXERCISE 2 TEAM 


" ITE 
OESCRIPTICN 


ory VENOOR 
NUMBER NUMGER 


VeNDGR 
NAME 


QARCER 
AMOUNT 


STATUS ITE™ 


NUMSER 


CUAKTITY 
CRCEREC 


CUANTITY 
RECEIVEC 


CATE 
RECEIVEC 


5-22 


400001 


409005 


400010 


400915 


400020 


490025 


25 


10 JOHN Me SMITH & SONS 506-00 


FETZNER EFETZNER 


PRAND X 3EEFR 


MARGARET FART INCe 


PETER VAN ROTH CCRP. 


PHOTO LABS INC. 


Deleted 


New Record 


5G 
Change ——-——______t 150 


BEAKERS 
ECGERS 
RIfA9NKS 


SPCCLS 
INVITATICAS 
LADDERS 
FILES 


ACTTLES 
CANS 


CARPETS 
SPINDLES 
MCLOS 


DISPLAYS 
CACINETS 


PICTURES 


c/ca/scc 
C/CO/0C 
3/15/8C 
2/26/RC 


2/C2/3C 
2/12/93C 
2/24/3C 
2/16/&C 


C/CO/CC 
C/CO/CC 


2/é2/6C 
2/17/8C 
c/CO/CS 


b7 227 3C 
c/cescc 


2/C5/2C 





10. If you need fresh data in your files, enter the command: 


IBM 5 


CALL RESTR1 PARM(xx) 


When you have completed the Open Purchase Order File Mainte- 


nance exercise, return to Module Text 5 to continue the course. 
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MODULE SUMMARY 


You have discovered that computer programs can be written 
with a high degree of structure, which permits them to be 
more easily understood for testing, maintenance, and modifica- 
tion. Also with structured programming, you have found con- 
trol branching is entirely standardized so that code can be 

read from top to bottom, without having to trace the branching 
logic as is typical without structured code. 


You may have the requirement to write a program to perform 
a function useful to many programs in an application. This 
type of function is a candidate for a subprogram. Module 6 dis- 
cusses how subprograms are coded and executed on the 
System/38. 
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Chapter 6. Module 6 - Subprograms 


MODULE PURPOSE 


Module 6 discusses subprograms and coding for sending and 
receiving parameters in RPG Ill programs. 


TIME ESTIMATE 


2 hours 


MODULE OBJECTIVES 
Upon completion of this module, you should be able to: 


e Code an FPG Ill program using instructions to pass parame- 
ters to a subprogram. 


e Code an RPG Ill subprogram using instructions to receive pa- 
rameters from a mainline program. 
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TERMS 
These terms are described/defined within the module. 
e PLIST 
e PARM 
e CALL 
e RETRN 
e FREE 
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Coding Exercise - Subprograms 


The purpose of this exercise is for you to use the operation codes to 
execute subroutines and transfer control to another program. You 
are to use the CASxx, CALL, PARM and PLIST operations and struc- 
tured programming in your program logic. 


This exercise is an extension of the previous machine exercise 
where you maintained the Open Purchase Order file. Now you are 
required to delete an entire purchase order from the file. This re- 
quires modifying your file maintenance program POR2xx to call a 
new program to be named PORSxx, which will delete an entire 
purchase order. 


You will find documentation (flowchart, screen layout, display DDS 
coding) on the following pages for use in coding the exercise. 


1. Using structured programming, modify your program logic for 
POR2xx by adding the option to delete a purchase order. The 
other maintenance functions remain the same as in the file 
maintenance exercise. Name the modified program POR3xx. 


2. Develop your program logic for PORSxx using the supplied 
structured programming flowchart. 


The function of this new program ts to delete both the summary 
and item records of a purchase order. If the purchase order 
number entered for deletion does not exist, this program is to 
pass an error condition back to the main program. 


The display layout is included on the following pages. The new 
delete function added to the display is shown boxed on the dis- 
play layout. 
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The new delete function has been added to the display file 
source specifications for you. The complete display file specifi- 
cations are located in the source member PODDELT and are 
included in the documentation. 





3. Code a new program to delete an entire purchase order and 
name it PORSxx. This program receives the purchase order 
number (PORNBR) from POR3xx. If PORNBR is invalid, the 
program is to return to POR3xx with an error indicator on. If 
PORNBR is valid, the program deletes the entire purchase 
order and then returns to POR3xx. 


The program PORSxx is to access the Purchase Order logical 
file POLONOxx which is built over two physical files POPSUM 
and POPDTL. The logical file has an access path keyed on pur- 
chase order number. The data description specifications are in- 
cluded in the documentation. 


4. Test your logic by checking the flowchart with your program. 


When you are done with the coding, ask your Administra- 
tor for the coding solutions. 


When you are ready, do the Subprogram machine exer- 
cise that follows. 
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SUBPROGRAM EXERCISE 
SYSTEM FLOWCHART 












PODDELxx 


Work Station 









PORSxx 


POR3xx Subprogram 








Main 
Program 


ee 





POLITMxx 
\ 
~~, aces as 
= — se > ya 
[OT —_ 7 
| — ae | 
| >OPSUMx POPDTLxx | 
| | 
| | 
| a a a ee al 
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CALLING PROGRAM — POR3xx 
FLOWCHART (Part 1) 





START 


OPEN 
FILES 


DISPLAY 


PROMPT 






















DISPLAY 
PROMPT 


OPTION 









ADD NEW DELETE UPDATE DELETE 
RECORD RECORD RECORD ORDER 


OPTION 





MOVE 
NEWOQTY TO 
QTYORD 


ACCESS 
DETAIL 


CLOSE RECORD 


FILES 


SET OFF 
ERROR 
INDICATOR 
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CALLING PROGRAM - POR3xx 
FLOWCHART (Part 2) 


DELETE 
ORDER 











ADD 
CALL 
PORSxx 
F SECORD 7 
NOT 
FOUND 

SET ON 
ERROR IND WRITE 


RECORD 


*IN20 





SET OFF 
ERROR 


INDICATOR 
*IN10 





CHANGE 





DELETE 






—— 
| 

| ERROR IND | pelea tl 
| RECORD 
1 *IN10 ! 

Goi oh See ell 







2 ey 






I 
SET ON | 
ERROR IND ! 

| 


*IN10 





DELETE 


r---- 
I 
| 
| RECORD 
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01 


02 


03 


10 


ROW 
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SCREEN LAYOUT 


PROMPT SCREEN -PURCHASE ORDER MAINTENANCE COLUMN 
2-30 | CaS | Sats | CS tec | SCC] Ete 
| i 2i3l4islel7[siololi2i3l4[si6i7[sig9iol1i213i4isi6i7 [giololi 1213141 516 17 1819/0) 112/31 4151617181910) 11213) 4i5i6!718i9lolii2/3/4/5l6l7/8i9 loli l2i3l4islel7isiolo| 


| [ee 
OPEN PURCHASE ORDER, FILE MAINTENANCE 


Se ee vk lr DY 0 DON a ee Lg a Ud Ue Uo [oS dee 








AINTENANCE 
CODE OPTIONS perp Ne Mg ee ha le toa 


Ay, AD AN JTEM (ENTER P.O.*, ITEM 4#,, QTY) 
. DELETE AW ITEM (ENTER P..0.%,, ITEM #) 


ODIFY A QUANTITY OROEREO (ENTER P.0.%, ITEM *, QTY) 


| a. DELETE AN ENTIRE PURCHASE ORDER CENTER P.O.#) 


ee es ere nee eee ree ea eee nee eel Mere ares 
pede tel OPTION | POF ITER | QTY 


| | | x AXXAAN AXANX OMAMAX | 
poe te ee tel anal eeeatee| ee | a | 


| l ro EWP THE JOB» PRESS CMD WEY 1 
Cra vv nD Was lr 


wae 
TO ENTER A \TRANS ACTION, PRESS ENTER : 

















Lire ave Serer Las Oa lem eee We ear EV TSI Der ere 





aootiriia tia 
PROR MESSAGES | | | eee | | 


1-10 | 1-20, 21-30 31-40 41-50 51-60 61-70 ise 
11213141516] 718191 011121314 ]51617 [s[91o]11213141516171819101112)314/ 5/617 [8 iS [ol 1/2] 314) Slé6l71si9lol1[213l4islél7isi9lol1[21314I516l 718 [9 loli [213 14ls/6l 7181910 
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DATA DESCRIPTION SPECIFICATIONS 


MEMBER: POCOELT 


SEQNSRe cee ee0e l eee e & ® 


109 
200 
300 
400 
500 
600 
709 
300 
900 
1000 
1100 
1200 
1309 
1400 
1500 
1600 
1700 
1800 
1900 
2000 
2109 
2209 
2300 
2400 
2500 
2509 
2700 


REF C(APPFREF ) 
CAOL(OL "END OF JOB") 
R PROMPT PLINK 
- 22°OPEN PURCHASE ORDER FILE MAINTENAN* 
CE? 
LO*MAINTENANCE® 
10"*CQDE OPTIONS® 
YS*le ACD AN ITEM (ENTER PeODeowy ITEM + 
we QTY)® 
15*2e CELETE AN ITEM (ENTER PeDetry + 
ITEM id? 
15% 3-e MOOIFY A QUANTITY ORDERED + 
(ENTER PeOeonws [TEM He QTY)® 
15°4e DELETE AN ENTIRE PURCHASE + 
ORDER (ENTER PeODer)!* 
13°OPTION PeQer ITEM * cTy® 
DSPATR(HI) 
OPTICN LOSVALUES(1 2 3 4) 
PORNBR 21CHECK (ME) 
ERRMSGCTITEM & OR PeDee NOF FOUND?) 
ERRMSG('CAN NOT AOC - ITEM ALREADY + 
EXISTS IN PURCHASE OROER®) 
ITMNBER 31 
NEWCTY 41 
15°TO END THE JOBs PRESS CMD KEY 1e* 
15"*TO ENTER A TRANSACTIONe PRESS + 
ENTER® 


rPrprpryYprperpprprprprerrprprpprprerrprprperrrprrrp rp p 
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CALLED PROGRAM — PORSxx 


FLOWCHART 


START 


DELETE 
SUMMARY 
RECORD 





RECORD 
FOUND 


ERROR 


SET ON LR 
INDICATOR 
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READ EQUAL 
DETAIL 
RECORD 










READ EQUAL 
DETAIL 
RECORD 


DELETE 
DETAIL 
RECORD 


DATA BASE FILES FOR SUBPROGRAM PORSxx 


SOURCE FILE: RPGSRC eGLCRPG MEMBER: POLONO 
SEQNBR< cee eee l @#@ee ee @ 2 eee eee 3 eee eee 4 eee eee 5 @#@e0e @e0e 6 e 


100 ORDSUM PFILE(POPSUM) 
200 PORNBR 


300 ORODTL PFILE(POPDTL) 
400 PORNBR 


SOURCE FILE: RPGSRC e-GLCRPG MEMBER: POPSU™M 


SEQNBR¥eee @#@e@e 1 e e @ e 2 e @ & eee e@ee 5 @ee ee@0e 6 @ @ e 
100 
200 
300 
400 
500 
600 
700 
800 
900 

1000 

1100 


REFCAPPFREF ) 

R ORDSUM TEXT(C*PO SUMMARY RECORD ®) 
PORNBR 
VNCNBR 
VNONAM 
MERCH 
DATORD 
VNOSLS 
VNDACD 
VNDPHN 
STATUS 


A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 


DDWDDRRDXAARX 


SOURCE FILE:= RPGSRC eGLCRPG MEMBER: POPDTL 
SEQNBRs eee @#ee l @ e @ @ 2 eee eee 3 @ee @oee# & @ee eee pa] eee @®@ee 6 @@e @2eoeeo T eee 


100 
200 
300 
400 
500 
600 
T00 
800 
900 
1000 
1100 
1200 
1300 
1400 


REF(APPFREF) 

R OROOTL TEXT(*PO LINE ITEM RECORD® ) 
PORNBR 
VNONBR 
ITMNBR 
ITMCSC 
QTYCRO 
ITMCST 
ITMAMT 
DEPTNC 
CATNBR 
DATREC 
QTYREC 
STATUS 


>rPrPrPprPrrprrrrrr 


DOM RD PRK DRAD 
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Machine Exercise - Subprograms ) 
Sign on by entering the password GLCRPG. | 


This exercise provides practice in entering, compiling and test- 
ing the Open Purchase Order File Maintenance program which 
you previously coded in this module. 


Please read all instructions before you start to do them. 
To avoid major problems in doing this exercise be sure 


you perform all steps in sequence. The EXERCISE in mod- 
ule 5 MUST be completed successfully. 





/ 1. Use option 8 to create a source member for your display 
file. Name the source member PODDELxx. (Substitute your 
first and last initials for xx.) 


2. Using Browse/Copy on the Services display, copy all of the 
data description specifications from PODDELT into your 
source member. 


3. Select option 3 and create your new display file PODDELxx in 
the GLCRPG library. 
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10. 


11. 
12. 


13. 


. You will use the same set of data base files (POLITMxx, POP- 


SUMxx, POPDTLxx) as you did in the previous machine 
exercises. 


To obtain a fresh set of files, enter the command: 
CALL LAB3 PARM(xx) 


. Create a source member in the RPGSRC file by the name of 


POR3xx, and using Browse/Copy in the Services display, copy 
your source code from POR2xx into this new member. 


. Add the code for the new delete function to POR3xx and change 


the file name for the work station from PODUPDxx to POD- 
DELxx. When option 4 is selected on the display, POR3xx is to 
call your subprogram PORSxx and specify the purchase order 
number (PORNBR) and an indicator (*INxx) as parameters. The 
indicator is to be set to true (‘1’) when the purchase order num- 
ber is invalid. 


. Create your object program POR3xx in the GLCRPG library. 


. Create a source member for a logical file in the RPGSRC file and 


call it POLONOxx. 


Copy all the data description statements from the member 
POLONO into POLONOxx. Modify the PFILE parameters by 
changing POPSUM and POPDTL to your file names 
POPSUMxx and POPDTLxx. 


Create your logical file POLONOxx in the GLCRPG library. 


Create a source member in the RPGSRC file by the name of 
PORSxx and enter your program. 


Create your object program PORSxx in the GLCRPG library. 
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PI 
NUMBER 


409001 


400005 


409019 


400015 


4000290 


400025 


VENOOR 
NUMBER 


10 


14. Before executing your program, see the BEFORE listing: 


BEFORE EXECUTING POR3xx 


EXERCISE 3 


VENDOR 
NAME 


JOHN Me SMITH €& SONS 


FETZNER E€FETZNER 


BRAND X BEER 


MARGARET HART INC. 


PETER VAN ROTH CCRP. 


PHOTO LABS INC. 


ORDER 
AMOUNT 


500.00 


110.00 


TEAMWW 


STATUS 


ITEM 
NUMBER 


LINED PAPER 


BEAKERS 
ECGERS 
RIBBONS 


SPOOLS 


INVITATICAS 


LACDERS 
FILES 


PCTTLES 
CANS 


CARPETS 
SPINOLES 
MCLDS 


OISPLAYS 
CABINETS 


PICTURES 


DESCRIPTICN 


QUANTITY 
CRCEREC 


CUANTITY CATE 
RECEIVED RECEIVED 


C/CC/CC 
C/CO/CC 
2/15/8C 
2/26/8C 


2/C2/8C 
2/12/50 
2/24/3C 
2/16/8C 


C/CC/CC 
c/CO/QC 


2/22/8C 
2/17/8C 
c/cc/oc 


1/23/8C 
C/CO/IC 


e/C5/8C 





15. Execute your programs by calling POR3xx and entering these 
transactions: 

Maintenance Purchase Item 
Code Order No. Number Quantity 


AAR AWDNH — 


400001 
400001 
400001 
400015 
400016 
400010 


100 50 
25 
150 150 


ERROR-NOT FOUND 





J 





16. If you have problems and need a fresh set of data in your files, 
enter the command: 


CALL RESTR3 PARM(xx) 
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17, When you are finished entering the transactions, enter the 
command: 


CALL LIST3 PARM(xx) 


and compare your listing to the following listing. Your listing 
should reflect the maintenance transactions entered. 


AFTER EXECUTING POR3xx 


EXERCISE 3 TEAMWW 


Pd VEACGR VENDOR ORDER STATUS ITEM ITEM QUANTITY GUANTITY CATE 
NUMBER NUFBER NAME AMCUNT NUMBER DESCRIPTION CRCEREC RECEIVEC RECEIVEC 


4090001 10 JOHN Me SPITH E SONS 500290 
c/cosae 
BEAKERS c/co/oc 
ECGERS 3/15/8C 
RIBBONS 2/26/9C 


400005 FETZNER EFETZNER 


SPQOLS 2/C2/8C 
INVITATIONS 2/12/3C 


400020 


400025 


PETER VAN ROTH CORP. 


PHCTC LABS INCe 


LADCERS 
FILES 


OISPLAYS 
CABINETS 


PICTURES 


2/24/8C 
2/16/8C 


1/23/°C 
c/cag/cc 


2/C5/aG 


When you have completed the Subprogram machine exercise, 
return to Module Text 6 to continue the course. 
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MODULE SUMMARY 


Subprograms are programs that are invoked by other programs. 

In the calling program, there are several ways to name the sub- 
program or pass the parameters. The most straight forward 
way is to CALL, naming the subprogram as a literal and follow- 
ing it by PARM statements. 


Module 7 discusses subfiles and subfile coding. You have stud- 
ied in other courses the data description specifications for 
subfiles. Module 7 will teach you the tasks involved in control- 
ling subfiles and the operation codes available to implement 
those tasks. 
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Chapter 7. Module 7 - Subfile Programming 


MODULE PURPOSE 


Module 7 discusses managing subfile operations in RPG III for 
inquiry from and update to a data base file. 


TIME ESTIMATE 


4 hours 


MODULE OBJECTIVES 
Upon completion of this module, you should be able to: 
e Code an RPG Ill program to create and display a subfile. 


e Code an RPG Ill program to update a data base file using a 
subfile. 
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TERMS 
These terms are described/defined within the module. 2 
e Selective Subfile DDS keywords 
e Pseudo Code 
e SETxx 
e READC 
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VIDEO INTRODUCTION 


Cc You have studied in the Application Programming course that 
a subfile is a group of records that have the same record 
format and are read from and written to a display device in 
one operation. You also found that a subfile is a special kind 
of display file. Subfiles are useful when multiple records that 
are alike must be displayed. 


The video you are about to see illustrates the RPG II! opera- 
tions supporting subfiles for: 


e Display, which will allow you to review the subfile records. 


e Update, which will allow you to modify one or more re- 
cords in the subfile for updating your data base. 


Video Summary 


You have been given a brief overview of how subfile opera- 
tions are managed through RPG Ill. The following operations 
were illustrated: 


e Displaying the subfile control record. 
e Filling the subfile. 
e Displaying the subfile records. 


e Reading changed subfile records for update. 


Module 7 7-3 


SUBFILE REVIEW 


You saw in the video on subfiles that there are a few basic : } 
operations in using subfiles. 


EB You read records from a data base file and write them to a 
subfile. The records are placed in the subfile one at a time, 


until the subfile is full or until there are no more records to 
read. 


DATA BASE 


<> 


PROGRAM SUBFILE 


Now you send the subfile to the display station with one 
operation to the subfile. 


PROGRAM SUBFILE DISPLAY 


+e ° 
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Your work station operator at this time may review the re- 
cords and/or modify the records. 


PROGRAM SUBFILE DISPLAY 


/ 


on 
a 
NX 





Z3 You read the subfile and process each modified record, up- 
dating the data base file as required. 


DATA BASE PROGRAM SUBFILE 
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Pseudo Code 


The following illustration represents our Vendor Master File In- : ) ) 
quiry in pseudo code. 


Pseudo code is written from top to bottom. 


Surbordinate functions are indented. You will find that identa- 
tion makes it easy to read. 


OPEN FILES (IMPLICIT BY RPG) 
DISPLAY SEARCH PROMPT 


DOWHILE EOJ NOT INDICATED 
CLEAR SUBFILE 


POSITION THE FILE POINTER 


INITIALIZE RRN 
SET SUBFILE FILL SWITCH OFF 
DOWHILE SUBFILE FILL SWITCH IS OFF 


| 

| READ VENDOR RECORD 
| IF EOF NOT SENSED 
| INCREMENT RRN BY ONE 
| WRITE VENDOR RECORD TO SUBFILE 
| |F SUBFILE FULL 
| | SET SUBFILE FILL SWITCH ON 
| (ELSE) 
| ENDIF 
| 

| 





SET SUBFILE FILL SWITCH ON 
ENDIF 
ENDDO 
; DISPLAY THE SUBFILE 
ENDDO 


CLOSE FILES 
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The goal of Pseudo Code is readability. 
e Pseudo code aids communication. 


— It can help you communicate your thoughts (what your 
program is attempting to do) to a non-programmer. 


e Pseudo code expresses your program design that is reada- 
ble and easily convertible to RPG code. 


e Pseudo code allows you to concentrate on the program 
logic instead of forms or other constraints. 


SEQUENCE 


ONE ONE 
ENTRY EXIT 








TIT TT TT TTT 
| ADD [Al To 6 
| PRINT) [AL] | 
| PRENT Bi | | 








Module 7 7-7 


Coding Exercise - Subfiles-Inquiry 


The purpose of this exercise is for you to write an RPG Ill program 
that displays multiple records from a data base file. In this exercise 
you are to write a program to display a vendor invoice. 


You will find documentation (HIPO diagrams, flowchart, DDS cod- 
ing for the display, logical, and physical files, display layout) on the 
following pages. 


1. 
2. 


Review the HIPO diagram that follows. 


The program logic has been structurally flowcharted for you 
from the HIPO diagram. 


Your program APR4xx will access your Vendor Invoice logical 
file APLDUExx which is built over your physical file APPOPYxx. 
The logical file is keyed on invoice number within due date. See 
the data description specifications for these files. 


The subfile has been partially coded for you. In reviewing these 
specifications, you will find the subfile control record is pro- 
vided except for the command keys and the SFL keywords. You 
need to add this code as well as the code for the subfile record. 
Code a value of 20 for subfile size and a value of 8 for subfile 
page. You are to name your subfile APDSLCxx. 


Using the supplied structured flowchart, code your program. 
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6. Test your logic by checking the flowchart with your program. 


When you are done with the coding, ask Administrator 
for the Subfile-Inquiry coding solution. 


When you are ready, do the Subfile-Inquiry machine 
exercise which follows. 
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HIPO DIAGRAMS 


DIAGRAM ID: 3.2.1 


Input FROM 32 Process 


1. DISPLAY PROMPT aes 
je) 2. IF END OF JOB NOT INDICATED EE ESE PROMPT 
OPEN 


PAYABLES A. READ UNPAID INVOICES 

FILE 1) IF DATE NOT ENTERED, READ 
ALL UNPAID INVOICES 

2) IF DATE ENTERED, READ ONLY 
THOSE INVOICES FROM THAT 





DIAGRAM 3.2.1 


Extended Description 


Display the subfile control record. The operator will press 
enter to display all invoices or enter a date and then press 
enter to display the invoices due from that date forward. 


The program should allow the operator to end the job 
anytime command key one is pressed. 


Build a subfile for all the records in the Open Payables 
File. 


lf a date was entered, a search key must be built and the 
file pointer set. 
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/ 
{ 
DATE FORWARD — INVOICES ; 
B DISPLAY ALL UNPAID INVOICES -\ 


Output 







/ 
| | UNPAID 






UNPAID 
INVOICES 


TO 
32.2 








VENDOR INVOICE DISPLAY PROGRAM — APR4xx 
FLOWCHART 


START 


OPEN 
FILES 


DISPLAY DISPLAY 


PROMPT 


SUBFILE 









SET ON 
DISPLAY 
SFL IND. 







WRITE 






SET ON 
SUBFILE FULL 
INDICATOR 











SUBFILE 


READ 
APLDUDT 


SET 
FILE 
POINTER 


INITIALIZE 
RRN 





CLEAR 
SUBFILE 
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DATA BASE FILES FOR VENDOR INVOICE DISPLAY PROGRAM 
APR4xx 


MEMBER: APLOUE 
SEQNBReecee eoo 1 eoo eoe 2 coe coe 3 coe coe 4 eee coe 5 coo cee 


100 
200 
300 
400 
500 
600 
100 
800 
900 
1000 
1100 
1200 
1300 
1400 
1500 


R PAYBLE PFILE(APPOPY) 
PORNBR 
VNONBR 
INVNBR 
DATREC 
MERCH 
DCTAVL 
NET 
STATUS 
DUDATE CONCAT(DUMODY DUYR) 
DUMODY 
DUYR 
K DUYR 
K DUMCDY 
K INVNBR 


>rrrrrrrrrprrrprp rp 


MEMBER: APPOPY 


SEQNBR¥ eee 1 eee eee 2 eee 4 eee ees 5 eee ees 6 eee e2e0e T e e 


100 
200 
300 
400 
500 
600 
700 
800 
900 
1000 
1100 
1200 
1300 
1400 


REF CAPPFREF ) 

R PAYBLE TEXT¢C*QPEN PAYABLES RECORD® ) 
PORNBR 
VNONBR 
INVNBR 
DATREC 
MERCH 
OC TAVL 
NET 
STATUS 
DTPAID 
CHECK# 
DUMODY 
DUYR 


PPrprprYrrprrrrYrrrrr>r> > 
DWDDRHPRDAAARADAXAD 
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SCREEN LAYOUT 


¢ COLUMN 
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eae ee ere Pel MPC EPC ae Eee RL TTA CE S| ee [A arc en ere |e eee BOR er ee 
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“| To. D PLAY. £ NVC PRES N ice Ng Sh te a eg le ae es Mee eR ho ee 
i ERs ORS eee LORE DER eR aD CRN | AI OSE Se See NE eae Lene aA eeee epee eee eeee | 
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DISPLAY FILE 


SEQUENCE 


7-14 


1.00 
2-00 
3.00 
4.00 
5.00 
6.00 
7.00 
8.00 
9.00 
10.00 
11.00 
12.00 
13.00 
14.00 
15.00 
16.00 
17.00 
18.00 
19.00 
20.00 
21.00 
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---- + ----1---- + ----2---- + ----3---- + --- 4 ---- + ---- 5) ---- + ---- 6 -- == #7 + 8 


PPrPrrrrrrrrrrrrrrrrrrp 


DATA DESCRIPTION SPECIFICATIONS 


MEMBER 
APDSLCT 


R DTARCD 
R CTLRCD 


REF (APPFREF) 

SFL 

SFLCTL(DTARCD) 
21L'VENDOR INVOICE SELECTION! 
03'TO DISPLAY ALL INVOICES.! 
28'"PRESS ENTER.! 
03'TO DISPLAY INVOICES DUE BEYOND A! 
36"SPECIFIC DATE, KEY THE YEAR! 
64DSPATRI(CS RI) 

REFFLD(DUYR) 
68'AND! 
O7'*MONTH/DAY'! 
LTDSPATRICS RI) 

REFFLD(DUMODY ) 
23', THEN PRESS ENTER! 

3'TO END JOB, PRESS CMD KEY l! 

3"'VENDOR INVOICE DUE! 
32'GROSS DISCOUNT NET! 
60'STATUS! 

3"*NUMBER NUMBER DATE! 
31° AMOUNT AVAILABLE AMOUNT! 





Machine Exercise - Subfiles-Inquiry 


Sign on by entering the password GLCRPG. 


C 





The purpose of this exercise is for you to enter, compile and 
test your Vendor Invoice Display program. 


Please read all instructions before you start to do them. 





1. Create a source member named APDSLCxx for your display file 
in the RPGSRC file. 


2. Copy all the data description specifications from APDSLCT into 
your member. 


3. Enter the additional data description specifications you 
coded for the subfile. 


4. Create your new display file with the name APDSLCxx and 
place it in the GLCRPG library. 
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5. You are to have your own set of data files (APLDUExx and 
APPOPYxx). To obtain a copy of your physical file, enter the 
command: 


CALL LAB4 PARM(xx) 


6. Create a source member named APLDUExx for your logical file 
in the RPGSRC file. 


7. Copy all the data description statements from the member 
APLDUE into your member. Modify the PFILE parameter by 
changing APPOPY to your file name APPOPYxx. 


8. Create your logical file APLDUExx in the GLCRPG library. 


Create a source member named APR4xx in the RPGSRC file 
and enter your program statements. 


10. Create your object program APR4xx in the GLCRPG library. 


Tl. Execute your program. Test your program by entering dates 
between Jan. 1, 1980 and April 30, 1980. 


12. Your displays should look similar to the ones on the next page. 


When you have completed the Subfile-Inquiry ma- 


chine exercise, return to Module Text 7 to continue 
the course. 
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SAMPLE SUBFILE DISPLAY FOR YOUR SUBFILE-INQUIRY 
EXERCISE - APR4xx 


VENDOR INVOICE SELECTION 


TO DISPLAY ALL INVOICES, PRESS ENTER. 


TO DISPLAY INVOICES DUE BEYOND A SPECIFIC DATE; KEY THE YEAR OO AND 
MONTH/DAY 0000 , THEN PRESS ENTER 


TO END JOB, PRESS CMD KEY 1 


VENDOR 
NUMBER 


INVOICE DUE 
NUMBER DATE 


GROSS 
AMOUNT 


DISCOUNT NET 
AVATLABLE AMOUNT 


STATUS 


10502 
88714 
73013 
56567 
21178 
07733 
00612 
07374 


872 


1/01/80 
1/15/80 
1/30/80 
2/01/80 
2/15/80 
2/28/80 
3/01/80 
3/15/80 


500.00 
600.00 
400.00 
100.00 
120-00 
150.00 
300-00 
600.00 


50.00 
60.00 
40.00 
10.00 
12.00 
15.00 
30.00 
60.00 


VENDOR INVOICE SELECTION 


450.00 
540.00 
360.00 

90.00 
108.00 
135.00 
270.00 
540.00 


MAANADNANANANM 


TO DISPLAY ALL INVOICES, PRESS ENTER. 


TO DISPLAY INVOICES DUE BEYOND A SPECIFIC DATE, KEY THE YEAR OO AND 
MONTH/DAY OOOO y; THEN PRESS ENTER 


TO END JOB, PRESS CMD KEY 1 


VENDOR 
NUMBER 


11002 
06242 
84210 
12302 


INVOICE 
NUMBER 


DUE 
DATE 


3/30/80 
4/01/80 
4/15/80 
4/30/80 


GROSS 
AMOUNT 


500.00 
100.00 
150.00 

50.00 


DISCOUNT 
AVAILABLE 


50.00 
10.00 
15.00 

5.00 


NET 
AMOUNT 


450.00 
90.00 
135.00 
45.00 


STATUS 
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Coding Exercise - Subfiles-Update 


The purpose of this exercise is for you to write an RPG Ill program 
that updates a data base file. In this exercise you are to add an 
update function to the program you wrote for the Subfile-Inquiry 
exercise of Module 7 


Given the same subfile display requirements as in the previous 
exercise, add the additional function to your program to allow the 
operator to select vendor invoices for payment. 


You will find documentation (HIPO diagrams, DDS coding for logi- 
cal and physical files, display layout) on the following pages. 


1. 


Review the HIPO diagram that follows. 


Note that the diagram is the same as in the previous exercise 
except it now includes the update function. 


See the screen layout that follows. The additional information 
added to this display is shown blocked. 


Your program APR5xx is to access the same Vendor Invoice file 
(APLDUExx) as in the Subfile-Inquiry exercise. Recall the Ven- 
dor Invoice file is keyed on invoice number within due date 
(DUYR, DUMODY, INVNBR). These fields must be defined in 
your subfile record. See the data description statements for 
your data base files. 


Use the following subfile update process flowchart for coding 
the update function. 


Examine the complete structured flowchart and note where the 
new update function should be placed. 


7-18 IBM System/38 RPG Ill and Structured Programming 


The additional subfile record and subfile control record infor- 
mation for your display file APDSLCxx is located in the source 
member APDUPDT and Is listed in the documentation that 
follows. When you do the machine exercise that follows, 

you are to copy this new code into your display file source 
specifications. 


Code the new update function for your program. 


Check your new coding with the update flowchart. 


When you are done with the coding, ask your Adminis- 
trator for the display subfile solution and the Subfile- 

Update program coding solution. Compare the results 
and resolve any differences. 


When you are ready, do the Subfile-Update machine exer- 
cise that follows. 
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HIPO DIAGRAMS 


DIAGRAM ID: 3.2.1 


FROM 3.2 Process 


1. DISPLAY PROMPT 
ee 
ee 2. IF END OF JOB NOT INDICATED 


Input 


OPEN 
PAYABLES 


THOSE INVOICES FROM THAT DATE 
FORWARD 


B DISPLAY ALL UNPAID INVOICES aaa 
C. SELECT INVOICES TO BE PAID 


D. PROCESS SELECTED INVOICES - 
UPDATE STATUS WITH A '‘T’ | 





DIAGRAM 3.2.1 


Extended Description 


Display the subfile control record. The operator will press 
enter to display all invoices or enter a date and then press 
enter to display the invoices due from that date forward. 


The program should allow the operator to end the job 
anytime command key one is pressed. 


Build a subfile of all the records in the Open Payables 
File. 


If a date was entered, a search key must be built and the file 
pointer set. 


Operator should be able to select any invoice by keying an 
‘X’ into the PAY field on the subfile display. The operator 
will press Command Key 5 to update the invoices. 


For those invoices selected update the record’s status code 
with a ‘T’. 
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U 
PROMPT 
A READ UNPAID INVOICES | 
FILE 1) IF DATE NOT ENTERED, READ ALL 
UNPAIDINVOICES fo 7 
2) IF DATE ENTERED, READ ONLY 


oa UNPAID 
oT INVOICES 


Output 
















UNPAID 
INVOICES 





OPEN 
PAYABLES 
FILE 


TO 
32.2 














c 


ROW 


01 


02 


03 


04 


05 


06 


07 


08 


09 


20 
21 
22 
23 


24 


SCREEN LAYOUT 


COLUMN 
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DATA BASE FILES FOR VENDOR INVOICE SELECTION 
PROGRAM - APR5xx 


MEMBER: APLDUE 
SEQNBReeee eee 1 ece 2 ec eco 5 see coe 6 eo 


100 
200 
300 
400 
500 
600 
700 
800 
9900 
1900 
11¢C0 
1209 
1300 
1400 
1500 


R PAYBLE PFILEC(APPOPY) 
PORNBR 
VNONBR 
INVNBR 
DATREC 
MERCH 
DC TAVL 
NET 
STATUS 
DUDATE CONCAT(DUMODY DUYR) 


PrrrrrrPrrrrrrrrr 


K INVNBR 


MEMBER: APPOPY 


SEQNBRe eee 


4 eee eee 5 eee eee 


100 
200 
300 
400 
500 
600 
7100 
809 
900 
1000 
1100 
1200 
1300 
1400 


REF (CAPPFREF) 

R PAYBLE TEXTC* OPEN PAYABLES RECOGRD® ) 
PORNSR 
VNONBR 
INVNBR 
DATREC 
MERCH 
‘DC TAVL 
NET 
STATUS 
DTPAIO 
CHECK# 
DUMODY 
DUYR 


>PrprrYrrrrrrypr>r> PP 
DDDDADARAARNRD 
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SUBFILE UPDATE PROCESS 
FLOWCHART 


SET OFF 
SFL DISPLAY 
INDICATOR 
















CHAIN TO 
APLDUDxx 


(SEE KLIST) 





MOVE ‘T’ 
TO STATUS 





UPDATE 
APLDUDxx 





READ 
CHANGED 
RECORDS 
IN SUBFILE 


READ 
CHANGED 
RECORDS 
IN SUBFILE 
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VENDOR INVOICE SELECTION PROGRAM - APR5xx 
FLOWCHART 


START 


OPEN 
FILES 
DISPLAY 


SUBFILE 
DISPLAY 
PROMPT & 














SET OFF 
SFL DISPLAY 
INDICATOR 











SET ON 
DISPLAY 
SFL IND. 










WRITE 
RECORD 
TO 

SUBFILE 





CHAIN TO 
APLDUDxx 


(SEE KLIST) 























MOVE ‘T’ 
TO STATUS 








UPDATE 
APLDUDxx 


READ 

APLDUDT READ 
CHANGED 
RECORDS 


IN SUBFILE 





SET 
FILE 
POINTER 






READ 
CHANGED 
RECORDS 
IN SUBFILE 






INITIALIZE 
RRN 





Co <> 
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PROVIDED DISPLAY SPECIFICATIONS FOR APR5xx 


MEMBER 3 APDUEINT 
SEQNER* » e ¢@ *¢ @ 1 


100 
200 
300 
400 
JOO 
600 
700 
800 
700 
LOOO 
1100 


x 


FAY LS 690SFATR (CCS > 
DUYR 
DUMOTY 


CFOS(OS *UFTATE INVOICES? > 


* 


11 03°TO UFDATE THE INVOICES, FRESS* 
11 33’°CMD KEY S.? 


DDDD DDK DDD? 


13 68’°FAY?’ 
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Machine Exercise - Subfiles-Update 
Sign on by entering the password GLCRPG. ) 


In this exercise you are to enter, compile and test your Vendor 
Invoice Selection program. 


Please read all instructions before starting to do them. 





1. The additional subfile data for your display file APDSLCxx is 
located in the source member APDUPDT. Copy this new code 
into your display file APDSLCxx at the appropriate locations. 
The source member is shown on the following page. 


Note: Add the VALUES (‘X') keyword for the PAY field as 
shown in the illustration of the APDUPDT source member on 
the following page. 
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PROVIDED DISPLAY SPECIFICATIONS FOR 
SUBFILES-UPDATE EXERCISE 


MEMBER $ AFP DUPIOT 


SEQNER#e +e e+e L oe A iva Gace 3 wee 6% 6 Seed 46S VT See cee 8B 


x 


100 
200 
300 
400 
300 
600 
700 
800 
700 
L000 
1100 


FAY 15 490DSFPATR(CS) VALUES(? X? > 
DUYR 
DUMOLY 


CFOS(OS "UFTATE INVOICES? > 


x 


11 O3°TO UPDATE THE INVOICES, PRESS?’ 
11 33°CMI KEY S&S. * 


Le ee a Ree 


is 68°FAY’ 





2. Create your display file. 


3. Create a source member in the RPGSRC file by the name 
of APR5xx. 


4. Copy your source code from APR4xx into your new member 
APR5xx. 


5. Add your code for the update function to APR5xx. 
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VENTIOR 


NUMBER 


LO502 


S714 


73013 


OWT 


21178 


1733 


B4210 


Va 3O2 


INVOICE 
NUMBER 
872 
147 
ry 


an 


923 


6. Create you object program APR5xx in the GLCRPG library. 


7. Before executing your program, review the ‘““BEFORE” 
listing below. 


FILE LIST BEFORE EXECUTING APR5xx 


FO 


NUMBER 


600050 


400060 


600070 


6400080 


600090 


690100 


600110 


600120 


600130 


600140 


400150 


600160 


EXERCISE 


NUE 


NATE 


1/01/80 


1/15/80 


1/30/89 


2/01/80 


2/15/80 


2/28/80 


35/901780 


3/15/80 


3730780 


4/01/80 


4/13/80 


4/39/80 
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i ~—w 
wed 


TEAMWW 


GROSS 


AMOUNT 


JOO .00 


400.00 


400.00 


100.00 


120.00 


150.00 


300.00 


400.00 


200-00 


100.00 


150.00 


20.00 


DISCOUNT 
AVATLABILE 


20.00 


60.00 


40.00 


10.00 


L2.00 


15.00 


30290 


60.00 


30 +00 


10.00 


15.00 


2+O00 


NET 


AMOUNT 


450.00 


74D ~O00 


360.00 


90.00 


108.00 


135-00 


270.00 


740-00 


450 +00 


90.900 


135200 


421400 


STATIS 


oO O1o8 GO 2 4900 0 040 «64 = 





J 


TO DISPLAY ALL INVOICES, 


TO DISPLAY INVOICES DUE BEYOND A SPECIFIC DATE, 
MONTH/DAY 0130 , THEN PRESS ENTER 
TO END JOB, 


TO UPDATE THE INVOICES, 


VENDOR 
NUMBER 


56567 
21178 
07733 
00612 
07374 
11002 
06242 
84210 


INVOICE 


NUMBER 


923 
124 
536 
138 
36 
24 
37 
116 


8. Run your program. Enter the pay date of Jan. 30, 1980. 


9. Select invoices 923, 36 and 116. for payment by entering an x for 
them in the PAY column. This is shown in the sample display 
that follows. 


SAMPLE SUBFILE DISPLAY BEFORE UPDATE 


VENDOR INVOICE SELECTION 


PRESS CMD KEY 1 


DUE 
DATE 


2/01/80 
2/15/80 
2/28/80 
3/01/80 
3/15/80 
3/30/80 
4/01/80 
4/15/80 


PRESS ENTER. 


PRESS CMD KEY 5. 


GROSS 


AMOUNT 


100.00 
120.00 
150.00 
300.00 
600.00 
500.00 
100.00 
150.00 


DISCOUNT 
AVAILABLE 


10.00 
12.00 
15.00 
30.00 
60.00 
50.00 
10.00 
15.00 


NET 


AMOUNT 


90.00 
108.00 
135.00 
270.00 
540.00 
450.00 

90.00 
135.00 





KEY THE YEAR 80 AND 


STATUS PAY 


MANMNDNAANNANM 


10. After selecting vendor invoices for payment, press com- 
mand key 5 to update the invoices. 
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11. To verify that your file APLDUExx was correctly updated, 
enter the command: 


CALL LIST5 PARM(xx) 
Your listing should be the same as the “AFTER” listing. 


FILE LIST AFTER EXECUTING APR5xx 


EXERCISE & TEAMWW 


VENDOR 
NUMBER 


88714 


73013 


VOUG7 


21178 


VCSS 


612 


374 


11002 


6242 


84210 


INVOICE 
NUMBER 


FO 


NUMBER 


600050 


600060 


600070 


600080 


400090 


600100 


600110 


600120 


600130 


400140 


600150 


6001460 


NUE 


DATE: 


1/01/80 


41/15/80 


1/30/80 


2/01/80 


2/15/80 


2/28/80 


3791780 


3/15/80 


3730/80 


4/01/80 


4/13/80 


4/30/80 
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GROSS 


AMOUNT 


700-00 


600.00 


400.00 


100.00 


120.00 


150.00 


300.00 


600.00 


400-00 


100.00 


150.00 


79 400 


UISCOUNT 
AVATLABLE 


70200 


60+90 


40.00 


10.900 


12400 


152090 


39400 


60.900 


20490 


10.00 


15-00 


«OO 


NET 


AMOUNT 


4350.00 


240.00 


360 2900 


70.00 


108.900 


L353 200 


2704900 


JI40 400 


450.00 


90.00 


135-00 


45 +00 








Also, you can verify that the correct records were selected by 
redisplaying the subfile. Your display should be the same as 
the “AFTER” display. 


SUBFILE DISPLAY AFTER EXECUTING APR5Sxx 


VENDOR INVOICE SELECTION 


TO DISPLAY ALL INVOICES; PRESS ENTER. 


TO DISPLAY INVOICES DUE BEYOND A SPECIFIC DATE, KEY THE YEAR 80 AND 
MONTH/DAY 0130 , THEN PRESS ENTER 


TO END JOB, PRESS CMD KEY 1 
TO UPDATE THE INVOICES, PRESS CMD KEY 5. 


VENDOR 
NUMBER 


INVOICE DUE 
NUMBER DATE 


GROSS 
AMOUNT 


DISCOUNT NET 
AVAILABLE AMOUNT 


STATUS PAY 


56567 
21178 
07733 
00612 
O7374 
11002 
06242 
84210 


923 
124 
536 
138 
36 
24 
37 
116 


2/01/80 
2/15/80 
2/28/80 
3/01/80 
3/15/80 
3/30/80 
4/01/80 
4/15/80 


100.00 
120.00 
150.00 
300.00 
600.00 
500.00 
100.00 
150.00 


10.00 
12.00 
15.00 
30.00 
60.00 
50-00 
10.00 
15.00 


90.00 
108.00 
135.00 
270.00 
540.00 
450.00 

90.00 
135.00 


¢ 


ANMNNANANANHA 





12. If you need a fresh copy of the file APLDUExx, enter the 
command: 


CALL LAB5 PARM(xx) 


When you have completed the Subfile-Update ma- 


chine exercise, return to Module Text 7 to continue 
the course. 
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NOTES 
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C 


MODULE SUMMARY 


You have performed the tasks involved in subfile programming: 
e Activating the subfile. 

e Loading the subfile. 

e Displaying the subfile. 

e Processing the subfile. 


You have found that structured programming is ideal for man- 
aging those tasks. Once the logic is defined it can be used in 
succeeding programs. 


Subfiles are best suited for inquiry and file maintenance applica- 
tions as you have experienced with the machine exercises. 


You may have a need to manipulate data within a program and 
to transfer that data between programs as well as between 
jobs. Data areas are features that provide you this additional 
capability. Module 8 discusses what a data area is, its function, 
and the operation codes that control a data area. 
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Chapter 8. Module 8 - Data Areas 


MODULE PURPOSE 


Module 8 discusses the concepts, functions, and coding of data 
areas. 


TIME ESTIMATE 


1 hour and 30 minutes 


MODULE OBJECTIVES 


Upon completion of this module, using reference materials, 
you should be able to code an RPG Ill program that uses a 
data area. 


Module 8 8-1 


TERMS 


These terms are described/defined within the module. 


Data Area 

Local Data Area 
DEFN 

IN 

OUT 

UNLCK 
*NAMVAR 
*LOCK 


8-2 IBM System/38 RPG Ill and Structured Programming 


VIDEO INTRODUCTION 


Cc Data areas are system objects that provide you with addi- 
tional capability in satisfying your programming and applica- 
tion requirements. For example, data areas provide another 
way to manipulate data within your program and/or to transfer 
data between programs. 


The video you are about to see illustrates what a data area is 
and its functions. 
Video Summary 


You have been given a brief overview of how data areas may 
be used to pass data values between programs. In this module, 
you will learn the RPG III coding for processing data areas. 
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Coding Exercise - Data Area with IN and OUT 


The purpose of this exercise is to access a data area with the IN 2 
and OUT operation codes. In this exercise you are to add code to 

the Open Purchase Order File Maintenance program — POR2xx 

which you coded and executed in Module 5. 


1. Your program (POR6xx) is to retrieve the data area value, 
update the value, and write it back to the data area. 


A data area creation program is provided for you. 


3. Remember, a data area stores data as a character string. Your 
program must separate that character string into individual 
fields for processing. Your data area, named TEAMxx, has a 
decimal length of six positions; the first two positions are for 
the transaction count and the last four positions are for the 
quantity total. Count all transactions except error transactions. 


4. Review the flowcharts on the following two pages. Note the 
new entries for processing your data area with IN and OUT. 


5. Code the new function using the IN and OUT operation codes. 


When you have coded the new function, ask your Ad- 
ministrator for the solution. Compare the results and 
resolve any differences. J 


When ready, do the Data Area With IN and OUT machine 
exercise that follows. 
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DATA AREA WITH IN AND OUT PROGRAM — POR6xx 
FLOWCHART (Part 1 of 2) 


START 


OPEN 
FILES 


DISPLAY 
PROMPT 


















UPDATE 
FIELDS 
OF 
DATA AREA 







DELETE 


DELETE 
RECORD 


CHANGE 
ADD NEW UPDATE 
RECORD RECORD 





MOVE 
NEWQTY TO 
ITMQTY 


ACCESS 
DETAIL 
RECORD 





CLOSE 
FILES 


SET OFF 
ERROR 
INDICATOR 
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DATA AREA WITH IN AND OUT PROGRAM — PORG6xx 
FLOWCHART (Part 2 of 2) , 


NEW FUNCTION 






UPDATE 


MOVE FIELDS 
FROM 
DATA AREA 





ADD 1 
TO COUNT 







ADD NEWQTY 
TO 
TOTAL 


WRITE 


MOVE FIELDS 
TO 
DATA AREA 
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Machine Exercise - Data Area with IN and OUT 
Sign on by entering the password GLCRPG. 


In this exercise you are to enter, compile and test your Data 
Area with the program you wrote using IN and OUT. 


Please read all instructions before starting to do them. 





1. Create a fresh set of files by entering the command: 
CALL LAB6 PARM(xx) 


2. Create an RPG source member named POR6xx in the RPGSRC 
file. 


Copy the code from your source member POR2xx. 


4. Add your new code for the data area function to POR6xx. 
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5. Create your object program POR6xx in the GLCRPG library. 
6. Create your data area by entering the command: 
CALL DAREA6 PARM(xx) 


Your data area is named TEAMxx and is filled with zero 
characters. 


7. Run your program and enter the following transactions: 


(NOTE: It is not necessary to correct the error transaction.) 


Maintenance Purchase ltem 
Option Order No. Number Quantity 
1 400001 50 50 
1 400001 450 25 
2 400001 25 
3 400001 999 10 
ERROR 
3 400001 150 200 


8. Verify that your program accumulated the correct totals 
by displaying your data area with the command: 


DSPDTAARA TEAMxx 
The value displayed should be: 
40275 
9.a) Fora fresh set of files: 
CALL LAB6 PARM(xx) 
b) For a fresh data area: 


CALL DAREA6 PARM(xx) 


When you have completed the Data Area With IN and 
OUT machine exercise, return Module 8 Text to continue 


the course. 
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MODULE SUMMARY 


( You have used a data area with the IN and OUT operation codes. 
Your program: 


e Retrieves the data area. 

e Updates the data area. 

e Writes the data area back to permanent storage. 

You also displayed your data area to verify its contents. 


Module 9 discusses how data areas are used with data struc- 
tures instead of using the IN and OUT operations for retrieval 
and writing of data areas. Module 9 also discusses the concepts, 
functions, and coding of data structures. 
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Module 9 - Data Structures 


MODULE PURPOSE 


Module 9 discusses the concepts, functions, and coding of data 
structures. 


TIME ESTIMATE 


1 hour and 30 minutes 


MODULE OBJECTIVES 
Upon completion of this module, you should be able to: 
e Code an RPG Ill program that uses a data structure. 
e Write the two main functions of a basic data structure. 


e List two differences between data areas and data structures. 
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TERMS 
These terms are described/defined within the module. : 
e Data Structure J 
e Data Area Data Structure 
e OCUR 
e DS 
e UDS 
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VIDEO INTRODUCTION 


A data structure is an RPG Ill programming feature that al- 
lows you to define an area in storage and the layout of the 
fields called subfields within that area. A data structure be 
used to group fields or to divide a field into subfields. 


C 





The video you are about to see illustrates what a data struc- 
ture is and its functions. 


Video Summary 


You have been given a brief overview of how data structures 
are defined and how they may be used in your program. 


Module 9 will discuss additional RPG III coding of data 
structures. 
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TYPES OF DATA STRUCTURES 


There are five types of data structures. You will find that the 
type of data structure determines its application. 


Basic Type - a single character string that allows field 
manipulation. 


Multiple Occurrence - a multiple occurrence data structure Is 
multiple copies of the basic type. This type forms a series 
of data structures identical formats. 


Data Area Data Structure - RPG III automatically places a pre- 
viously created data area into the data structure causing 
the data area to be redefined into specific fields. 


Program Status and File Information are special types and 
are discussed in the next module on “Handling Exception 
Errors”. 


BASIC 
MULTIPLE OCCURRENCE 
DATA AREA 


PROGRAM STATUS 


FILE INFORMATION 
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2 





Coding Exercise - Simple Data Structure 


The purpose of this exercise is to use a simple data structure to 
access a part of a field. In this exercise you are to add an edit 
check to the maintenance program of machine exercise 2 (Open 
Purchase Order File Maintenance program — POR2xx). 


1. Review the flowchart that follows. Note the new entries for 
using a data structure. 


2. Verify that each record to be deleted (option 2) has a date re- 
ceived month in the DATREC field equal to the current month. 
To simplify calculations, assume a current month of February. 
The coding requirements therefore are: 


month portion of DATREC = 02 (February) 


3. Use a data structure to extract the month from the DATREC 
field. An appropriate error message for this edit is supplied for 
you in source member PODO60. Note the error message 
indicator 50. 


4. Code the new function for your program. 


MEMBER 
* PODO60 


SEQUENCE Sasa i A Se ee eces 


1.00 ERRMSG('RECORD DATE IS NOT + 
2.00 CURRENT MONTH' ) 
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When you have coded the new function, ask your Ad- 
ministrator for the solution. Compare the results and | | 
resolve any differences. 


When you are ready, do the machine exercise ‘Simple 
Data Structure” that follows. 
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SIMPLE DATA STRUCTURE PROGRAM — POR7xx 







FLOWCHART 
START 
OPEN NEW CODE 
FILES 
DEFINE 


DATA 
STRUCTURE 


DISPLAY 
PROMPT 






DISPLAY 
PROMPT 







ADD NEW 
RECORD 


DELETE 


DELETE 
RECORD 
OPTION 


MOVE NEW 
QTY TO 
ITMQTY 










ACCESS 
DETAIL 
CLOSE RECORD 


FILES 


SET OFF 
ERROR 
INDICATOR 


Note: Define data structure 
to extract month from 
DATREC field. 











CHANGE 
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Machine Exercise - Simple Data Structure 


Sign on by entering the password GLCRPG. 


In this exercise you are to enter, compile and test your Simple J 
Data Structure program. 


Please read all instructions before starting to do them. 
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DISPLAY FILE 


SEQNGR 


100 
200 
300 
400 
500 
600 
700 
800 
900 
1000 
1100 
12U0 
1300 
1460 
1500 
1600 
1700 
1800 
1900 
20u00 
2100 
2200 
2300 
2400 
2500 
2600 
2700 





1. Add the new error message to the source code after the other 
error messages of your display file PODUPDxx. See the data 
description specifications below. 


DATA DESCRIPTION SPECIFICATIONS 


DATA DESCRIPTION SOURCE 


PODUPDxx 


eee @e@ee eee 2 eee ees 3 eee eee G ees @ee 5 ees e@@e 5 @ee eee T eee eee 8 


REF(APPFREF) 
CAQL(O9OL "END OF JOS) 
JLINK 

22"0PEN PURCHASE ORDER FILE MAINTENAN* 
CES 

LO'MAINTENANCE * 

LO*CUDeE JPTIUNS® 

15%1. ADO AN ITEM (CENTER Peet, ITEM + 
wy QTY)? 

15*2~56 vVELETE AN ITEM (CENTER PeOows + 
ITEM fF) 

15'3. MODIFY A QUANTITY ORDERED + 
(CENTCR PeODeormy ITTEM ye QTY)? 

13*OPTION PeDerw ITEM ? 
USPATR(HI) 

LSVALUtcS{(1l 2 3) 

Z2Z1CHECK( ME) 
cRRMSGCPITEM © OR Peeve NOT FOUND®) 
ERRMSG(TCAN NOT ADD — [TEM ALREADY + 
EXiSTS IN PURCHASE ORDER®) 


R PRUAPT 


QTy* 


OPTIUN 
PURNSR 


ITMNGR 
NEWQTY 
15*°FTO END THE JOBe PRESS CMO KEY 1Le* 
15*TO ENTER A TRANSACTIONs PRESS ¢ 
cNTER® 


PPP pplirp pir PPrrppprerperPprepp,prrprppryrppp 


The new code is located in a source member PODO60 which is 
listed below. Because it is just two lines of code you may choose 
to enter it rather than copy it with the Browse/Copy function of the 
Services display. 


MEMBER 
* PODO60 


SEQUENCE ----+----1---- + ----2##5----+----6---- + ----7 ---- +----8 


1.00 
2-00 


ERRMSG('RECORD DATE IS NOT + 
CURRENT MONTH!) 





2. Create your display file PODUPDxx. 
3. Create a fresh set of files by entering the command: 
CALL LAB7 PARM(xx) 


4. Create a source member in the RPGSRC file by the name 
of POR7xx. 


5. Copy the code from your source member POR2xx and add the 
code for the new function. 


6. Create your object program POR7xx in the GLCRPG library. 
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7. Before executing your program, see the ‘‘BEFORE” file 


listing: 


FILE LISTING BEFORE EXECUTING POR7xx 


MACHe EXFR. 7 That wh 


VENDOR VENDOK JURVER STaTuS 


NUMBER vA ME A ADUNT 


10 JOHN Me SMITH € SUNS $0069) 


FETZNER EFETZNER 


£00010 BRAND X JEER 


400015 MARGARET HART INC. 121.00 


400020 PETER VAN RUTH CORP. 


400025 PHOTO LABS INC. 


ITEM 
OESCRIPTION 


LINED PAPER 
BREAKERS 
FOGERS 
RIBBONS 


SPOGLS 
INVITATIONS 
LADDERS 
FILES 


BOTTLES 
CANS 


CARPETS 
SPINDLES 
MOLDS 


DISPLAYS 
CABINETS 


PICTURES 


QUANTITY DATE 
ORDERED RECEIVED RECEIVED 


0/00/00 
0/00/00 
3/15/80 
2/26/80 


2/02/80 
2/12/80 
2/24/80 
2/16/80 


0/00/00 
0/00/00 


2/22/80 
2/17/80 
0/00/00 


1/23/80 
0/00/00 


2/05/80 





8. Execute your program and enter the following transactions: 


(NOTE: It is not necessary to correct the error transactions.) 


Maintenance 


Option 


2 


2 
2 
2 
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Purchase 
Order No. 


400001 


400001 
400015 


400015 


Item 
Number 


375 
ERROR 
475 
275 
ERROR 
250 





9. To verify that the correct records were deleted, execute the list 
program by entering the command: 


CALL LIST7 PARM(xx) 
Your list should be the same as the “AFTER’” file listing shown 
below. 


FILE LISTING AFTER EXECUTING POR7xx 


MACre EXEnxe. T TEAMAW 


PO VENDOR 
NUMBER NUMBER 


VENDOR 
NAME 


DRUER 
AMOUNT 


STATUS ITEM 


NUMBER 


ITEM 
DESCRIPTION 


QUANTITY QUANTITY DATE 
ORDERED RECEIVED RECEIVED 


400001 LO JOHN Me SMITH E SUNS 500.00 


#00010 


£00015 


400020 


£00025 


FETZNER EFETZWER 


BRAND XK BEER 


MARVARET HART INC. 


PETER VAN RUTH CORP. 


PHOTO LaBs INC. 


10 


119.00 


350.00 


121.0 


1609.50 


LINED PAPER 
BSEAKERS 
EOGERS 


SPOOLS 
INVITATIONS 
LADOERS 
FILES 


BOTTLES 
CANS 


CARPETS 
MOLOS 


DISPLAYS 
CaBINETS 


PICTURES 


. If you need a fresh set of files, enter the command: 


CALL LAB7 PARM(xx) 
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0/00/00 
0/00/00 
3/15/80 


2/02/80 
2/12/80 
2/24/80 
2/16/80 


0/00/00 
0/00/00 


2/22/80 
0/00/00 


1/23/80 
0/00/00 


2/05/80 





machine exercise, return to Module Text 9 to con- 
tinue the course. 


When you have completed the Simple Data Structure } 








9-12 IBM System/38 RPG III and Structured Programming 


Progress Check: Unit 2 
Record your answers in the space provided. 


1. List two differences between data areas and data structures. 


Loo Noten 


2. What are the two main functions of a basic data structure? 


i} ‘ J “ef 
CA r P (j np : K jf oy . o% SUE A y 2 ral, v ALL LA A AL | a. 





‘ ' y é 
b. 4 Au 4 UMN OMY . “ ‘J i a> bm Pr A yO ff 


ZL AA Att hg tid g 4 
yj 
3. What RPG Ill function must be used to format a composite 
key for a) an externally defined file, b) a program defined 
file? 





4. What operation codes must be coded in your program for 
you to control the reading and writing of data areas? 


es 4 c f/ 
Aa is AY Z, Z A — 2 = “7 a ” hy é 4, vl J ‘ a4 j 7 a : ’ i? ea 
Vi Y / 
& 
Ape 4 4 MM Lf L- CLAY La. ame A_4 CL AL a 
‘ eal 
‘ 7 - 
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5. What is the major advantage of an externally defined data 


structure? ) 
ty e 





6. What type of data structure offers you an alternative to 
array processing? 


ys, i. 2 ACCY SONAL 7 


When you have completed the questions, return to Mod- 
ule Text 9 to review your answers. 
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NOTES 
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t 
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NOTES 
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MODULE SUMMARY 


C RPG Ill allows you to define an area in program storage and 
the layout of the fields, called subfields, within that area. This 
‘area in storage is called a data structure. A data structure can 
be used to: 


e Redefine a field as an array. 


e Define the same field multiple times using different data 
formats. 


e Divide a field into subfields. 
e Group fields together. 
e Define multiple occurrences of a set of data. 


As a programmer, you can choose to let RPG III handle pro- 
gram and file exception errors or you can choose to control 
the program logic yourself when an exception error occurs. Mod- 
ule 10 discusses handling exception errors. 
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Chapter 10. Module 10 - Handling Exception Errors 


MODULE PURPOSE 


TIME ESTIMATE 


MODULE OBJECTIVES 


Module 10 discusses how your program can manage exception 
errors by using file information and program status data 
structures. 


1 hour and 45 minutes 


Upon completion of this module, you should be able to: 
e Write an RPG III program that includes the coding for; 
— a file information data structure, 
— a program status data structure, 


— and an exception error subroutine to process information 
either a file information or a program status data structure. 
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TERMS 





These terms are described/defined within the module. J 
e Exception Error 

e File Information Data Structure 

e Program Status Data Structure 

e Return Point 


e RPG Ill Default Error Handler 


J e INFDS zc 4 ts hota OLiuctyund aa 7 
e SINESR CUfceeeteee cata Siauctune . 
e *PSSR 


IM FSR ~ Ln order For — dub rweutiye Le ulh melee oD, 
CLLN CA PATO Opti LoL Lame - 


o 
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EXCEPTION ERRORS 


‘ Have you ever had a program terminate because a file was full 
or a called program was not found? Did the operator know 
what to do? Did the remote terminal know what to do? 


With RPG Ill, you now have the tools to manage those excep- 
tion errors that caused your programs to terminate abnormally. 


An exception error is an error condition with a status code 
greater than 99. 


Those codes less than 99 are considered normal error condi- 
tions and are managed by your normal coding. Some exam- 
ples of normal code conditions that are not errors (normal 
completion of an operation): ending the display with a com- 
mand key, end-of-file, record-not-found, etc. 


NORMAL ERROR CODES 


No exception/error 


Command key used to terminate display 


End of file on a read 


No-record-found condition on a CHAIN 
a operation 


Subfile is full 





Cr ception Cntr’ Cacia 


fOr Undefined Kacey, nd. 
fA 1/0 Pperadiow Lb ce Chésed pte 
O10L — chdcictw by Jeno 


Ons / Phonan Apr crfisel Ly, CHee on Frew not soured 
Qala ALL, 


OLR AOatic anew W6e bochad fom output. 
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MANAGING EXCEPTION ERRORS 


System/38 RPG Ill provides you with three ways of managing 
exception errors: 


e By specifying a resulting indicator in position 56-57 of your 
calculation statement. The indicator will turn on when the 
operation fails. 


By specifying a file information data structure and a file 
exception error subroutine, file exception errors can be 
monitored. 


e By specifying a program status data structure and a program 
exception error subroutine, program exception errors can be 
managed. 


THREE METHODS TO MANAGE 
EXCEPTION ERRORS 


INDICATOR IN POSITIONS 56-57 IN CALCULATIONS 
FILE INFORMATION SUBROUTINES 
PROGRAM STATUS SUBROUTINES 
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Coding Exercise - Exception Error 


The purpose of this exercise is for you to use an exception error 
subroutine to manage a program exception error. 


In this exercise you modify a copy of the program POR6xx that 
processed a data area with IN and OUT operations and that you 
coded in Module 8. 


The program you wrote in Module 8 retrieved and updated a data 
area. In this exercise your program will not find the data area, 
causing the program exception/error code 00401 (a data area was 
not found on an IN or OUT operation) to be placed in the *STATUS 
subfield of your data structure. 


1. 


When the program exception/error 00401 occurs, your program 
is to automatically branch to an exception error subroutine. 


Your subroutine is to test for error code 00401. 


Call the provided data area creation program POL800, and pass 
your identification (xx) to it. 


Note: Program POL800 creates the data area used by your pro- 
gram. See the source code for POL800 on a following page. 


Your program should handle the error condition via a sub- 
routine without the operator being alerted that a problem 
occurred. 


Also, in the same subroutine monitor for a file exception error 
on your data base logical file POLITMxx. 
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6. If an error other than 00401 occurs, display format ERRSRN and 
end the program. See the following documentation. ) 


7. Code the OPEN operation code for your data base file POLITMxx 
in your program. 


8. Study the program error subroutine that is included in the 
documentation. 


9, Examine your program POR6xx from Module 8 exercise and 
determine where to add the new code. 


10. Code the new function. 


When you are done with the coding, ask your Admin- 
istrator for Exception Error coding solution. 


When you are ready, do the Exception Error machine 
exercise that follows. 
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PROVIDED DATA AREA CREATION PROGRAM 
FOR MODULE EXERCISE 10 
(EXCEPTION ERROR) 


MEMBER: POL800 


SEQNBR&eee @ee l eee eee 2 e e @2ee 3 eee e e 4 eee @2ee 5 e@ee e e 6 


LOO START: PGM PARM(ET i 

200 DCL VARCET#) TYPE(*#CHAR) LEN(2) 

3u0 DCL VARTENAME) TYPE(*=CHAR) LENC6) 

400 CHGVAR VAR(ENAME) VALUE C( TEAM CAT ET#)) 

500 CRTOTAARA DTAARACENAME «GLCRPG) TYPE(=DEC) LENC6 O) + 
600 VALUE(O) TEXT(*MACHINE EXERCISE 8 DATA AREA + 
700 FOR EXCEPTIUN ERRURS®) 

800 RETURN 

900 ENDPGM 
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DATA DESCRIPTION SPECIFICATIONS AND DISPLAY 
EXAMPLE OF ERRSRN RECORD FORMAT 


MEMBER: ERRSRN 


SEQNBReee @o@¢eeoe l eee @ee 2 @#ee eee 3 @ee ees + ees @@ee 5 eee eee 5 eee ec ea T eee 


100 R ERRSRN 

200 5 30° THERE IS A PROBLEM * 

300 3 26°CALL THE DP DEPT - (333-2222)°| 
190 26°PRESS ENTER TO RETURN TO MENU* 


400 


THERE IS A PROBLEM 


CALL THE DP DEPT - (333-2222) 
PRESS ENTER TO RETURN TO MENU 
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PROGRAM EXCEPTION ERROR SUBROUTINE 


DISPLAY 
ERRSRN 


CANCEL 
PROGRAM 


FLOWCHART 


CALL 
POL800 


RETURN 
TO DETAIL 
CALCS. 
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Machine Exercise - Exception Error 
Sign on by entering the password GLCRPG. ) 


In this exercise you are to enter, compile and test your Excep- 
tion Error program. 


Please read all instructions before starting to do them. 





1. Obtain a fresh set of files by entering the command: 
CALL LAB8 PARM(xx) 

2. Delete your data area by executing the command: 
DLTDTAARA TEAMxx 


3. Copy the source member ERRSRN into your display file source 
member PODUPDxx. 





10-10 IBM System/38 RPG Ill and Structured Programming 


10. 


11. 


12. 


Recreate your display file PODUPDxx in the GLCRPG library. 
Create a source member for your program and name it 
POR8xx. 
Copy your program named POR6xx from Module 8 exercise 
into POR8xx and add the new code. 
Create your object program POR8xx in the GLCRPG library. 
Execute your program and enter the following transaction: 
Maintenance Purchase Item 
Option Order No. Number Quantity 
1 400001 50 50 
lf your exception error subroutine successfully managed the 
error, your data area will have been created. 
Display your data area with the command: 
DSPDTAARA TEAMxx 
It should have a value of: 
10050.000000000 
If you need to retest your program, remember to delete the 
data area before executing by entering the command: 
DLTDTAARA TEAMxx 
If you need a fresh set of files, enter the command: 
CALL LAB8 PARM(xx) 
Delete your logical file POLITMxx and execute your program 


again. You should see the error format. When you press the 
ENTER key, your program should end and return you to the 
programmer menu. 


At this time, you have completed the machine exer- 
cises for the System/38 RPG Ill and Structured Program- 
ming course. 


To remove your source members, objects, and identi- 
fication from the system, select option 5 and enter the 
following command: 


CALL RPGEND 


At program completion, remove your listing from 
the printer and give it to your Administrator. 
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When you are ready, return to Module Text 10 to con- 


tinue the course. ) 
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C MODULE SUMMARY 


With RPG Ill, you have the option of controlling file exception 
and program exception errors. 


You have a variety of ways to control those errors through: 


e Resulting indicator in positions 56-57 of the calculation 
specifications 


e File information data structure 


e Program status data structure 


At this point, you should have executed the procedure 
to remove your source members and objects from 
the class library. If not, please return to your work 


station, sign on, and enter the following command: 
CALL RPGEND 
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Chapter 11. 


MODULE PURPOSE 


TIME ESTIMATE 


MODULE OBJECTIVES 


Module 11 - Additional RPG III Functions 


Module 11 discusses additional RPG Ill functions, such as addi- 
tional enhancements to RPG, multiple device files, and com- 
mitment control. 


1 hour and 30 minutes 


Upon completion of this module, you should be able to: 


Describe how unit record devices would be coded in an 
RPG III program. 


List three reasons when a ’K’ or continuation line is neces- 
sary for file descriptions. 


List two occasions when input specifications are required 
in an RPG III program. 


List one application for a multiple device file. 
Write the procedural steps for using a multiple device file. 
Describe commitment control. 


List and describe the RPG III operation codes for commit- 
ment control. 
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TERMS 
These terms are described/defined within the module. > 
e DO 
e READP 
e Figurative Constants 
e EXCPT 
e CABxx 
e SORTA 
e Indicator Field and Array 
e SHTDN 
e TESTN 
e TIME 
e RENAME 
e DEL 
e PRTCTL 
e Multiple Device Files 
e Commitment Control 2 
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INPUT/OUTPUT OPERATION CODES 


C The following chart indicates whether an operation code can 
be used with the program logic cycle or full procedural pro- 
cessing and whether an operation code can be used with pro- 
gram or externally described files. 


/O Operation Codes 


= COL 19 FILE SPECS 
= COL 16 FILE SPECS 


OPERATION 
CODE 


— CHAIN 
— READ 
— READC 
— READE 
— READP 
— SETLL 
— SETGT 
— UPDAT 
— WRITE 
— DELETE 
— OPEN 
— CLOSE 
~~ — FEOD 
— EXCPT 
— EXFMT 


<xx<N XX 


<x«Kx«x =a -xK«K-K-K KKK UK 


— 


Kx KKK KK KK 
<x KK KK mK KK KKK KK KK 


WK KK KK KK OK XK 


en, 
~~ 


(1) OUTPUT FILE NOT USING 1P INDICATOR, ONLY 
(2) ONLY ALLOWED WITH SUBFILES 
(3) ONLY ALLOWED WITH DISPLAY FILE 
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UNIT 2 SUMMARY 


Your task is to match the programming tools to meet your pro- J 
gram requirements. The minimum executable RPG Ill program 

consists of calculation specifications only. This would probably 

be a subprogram. 


AN FPG Ill PROGRAM 


e ANY VALID GROUP OF RPG STATEMENTS CAN BE A PROGRAM 


e CONTROL SPECIFICATION IS OPTIONAL — PROGRAM NAME IS 
GIVEN BY CRTRPGPGM COMMAND 


e FILE DESCRIPTION SPECIFICATIONS ARE REQUIRED ONLY IF I/O 
IS TO BE PERFORMED 


e INPUT AND OUTPUT SPECIFICATIONS ARE NOT NEEDED WITH 
EXTERNALLY DESCRIBED DB FILES 
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Progress Check: Unit 2 
( Record your answers in the space provided. 


1. List three RPG Ill enhancements for output specifications. 


yz. 
hb. PRTICTA 
,,Latr1 : Sadek 
EXC PT MOL - 


2. When are input specifications required in a program? 





3. Which RPG III indicator cannot be referenced with the field 
*INxx? 


w~ ey hee 


4. List three reasons why a continuation line (‘K’ line) would 
be specified in an RPG Ill program. 





d. KENAIUME 


@, PRTICTL 


When you have completed the questions, return to Moa- 
ule Text 11 to review your answers. 





> coylrat heveb ay demaanaas Aaetved LHe ce Lor | Module 11. 11-5 


NOTES 
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APPLICATIONS FOR MULTIPLE DEVICE FILES 


e Some programs must communicate with more than one de- 
vice through one file. Using a multiple device file allows 
your program to wait for input from any of the devices at 
one point in the program. 


The devices supported on a multiple device file are any combina- 
tion of display devices and communication devices. 


c™) 7 Y 
/ 
4 

COMM 


that poe trwty Ce Clee L a 


7] ta wwbhnt contre wi 
LNarn pre , qa 


ie 
ApEn it C2cl Le uy Jews MA ALATEE 


ele we Sr oleininy ad apie patel braegeh 


oa 


EC 
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MULTIPLE DEVICE FILES 


A multiple device file is an RPG III WORKSTN file with at least J 
one of the keywords ID, IND, NUM, or SAVDS specified on 
the file description specifications continuation line. 














































































































F File Type Mode of Processing 
File Designation Length of Key Field or s Extent Exit 
of Record Address Field = for DAM 
End of File 2 
Record Address Type . 7 Name of 
Fil Sequence symbolic. 14 ake Exit 
ilename Type of File < Device Device e 
File Format w Organization = 5 : 
L Ww Sor Additional Area | 8 torage Index 
ine he = Sa. O 
a = © | Overflow | = 
2 ole = Block Record wIE = = il 2 
~~ | “W4 = 
- S c > Length Length ox a S See 2 Continuation Lines 
E 5 S ol 4 {|= Location |w 
“ =lalw]et External Record Name K Option Entry 
3 4 5/6)7 8 9§ 1011 12 13 14 |15]16117]118),19] 20 21 22 23) 24 25 26 27] 28]29 30| 31/32/33 34/35 36 37 38/39) 40 41 42 43 44 45 461/47 48 49 50 51 52/53/54 55 56 57 58 59 |60 61 6? 63 64 65 
0/2] [FDS PIF ILE) (c/Fl | |e : || WORKS | | 
ely —_— | : + | . 4-444 t—-t-— t a ee | Da + 
0/3 Fl | ; | | | | | 
sry as me | | 4 os K WD | | ae ee 
| 
ee i aa yo gd | = iy | a TE os St IND 
| | | | | 
o/s; |FL | | | |. | | | | | NUM | 
| a +——+. = + See —— 
ole| |Fl | | SAVD'S 
— al - — j | ha . 
o|7| |F | | | | | 
| — + -— we Tt te — 4 + t 
ols! |F | 
| Lh [ ae ae —} + + 
0/9 F 
—. imi | . 4 = | | = [co Ree 
ilo! le | 


















































11-8 IBM System/38 RPG Ill and Structured Programming 


C 


USING COMMITMENT CONTROL 


Overview 


Using commitment control you can define and process a num- 
ber of changes to data base files as a single unit of work (or 
transaction). Commitment control requires journaling. The ba- 
sic concept of journaling is to automatically record the changes 
to data base files as they occur. Commitment control extends 
journaling. Journaling is discussed in more detail in the System/38 
Application Design Class. 


Files under commitment control must be journaled to the same 
journal file, both before-images and after-images. You need 
not specify both images. Commit will put both images in the 
journal regardless of how the journal was specified, for the 
duration of commit processing. In other words, you don’t have 
to redo all the journals to use commit. 


When changes are made to these data base files, entries are 
placed in the journal file for each change generated by the 
transaction. When the transaction is completed, your program 
executes an RPG III COMIT operation that places a separate 
entry on the journal to identify that the changes generated by 
the transaction are commited, that is, the changes are made 
permanently in the file. 


COMMITTED JOURNAL 
FILES FILE 


<a ee 
LFUEA | ~ 
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MODULE SUMMARY 


Module I] discussed RPG Ill operations that you had not used J 
in the machine exercises. However, your applications may re- 
quire these additional functions of the RPG Ill language. 


Module 11 also introduced you to multiple device files and com- 
mitment control with references for more detailed information. 


eZ _ Module 12 may be skipped. Please read the following before 


Ss continuing the course. 


Module 12 is written for those who may have the 
requirement to write RPG III programs using program 
described work station files or the requirement to 


maintain these programs. If you feel you need to know 

, about program described work station files, return 
the text to your Administrator and ask for Module Text 
12. 





Module 13 illustrates how printer device files are coded and 
created as well as their probable uses as an alternative to 
program described printer files. 





Should you choose to skip Module 12, return the text 


to your Administrator and ask for Module Text 13. 
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Chapter 12. Module 12 - Program Described Work Station 


C Files 


MODULE PURPOSE 


Module 12 presents how program described work station files 
are coded and their possible uses as an alternative to exter- 
nally described work station files. 


TIME ESTIMATE 


1 hour 


MODULE OBJECTIVES 
Upon completion of this module, you should be able to: 


List 3 reasons why a program described work station file should 
be used. 


List the considerations in coding the data description specifica- 
tions for a program described work station file. 


Describe the functions of programs without a format name 
| and those with a format name that use a program described 
w work station file. 
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TERMS 


These terms are described/defined within the module. 


Input/Output Buffers 

Record Identification 

Pass 

*NOID 

K1-K8 End Positions 

KA-KN, KP-KY Command Key Indicators 
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GENERAL CONCEPTS 


General concepts of program described work station files are 
as follows. 


Input and output specifications are used in the RPG III program 
to define the display file. 


Because input and output specifications are used, you can code 
programs similar to some System/3 programs and System/34 
work station programs. However, System/38 RPG III programs 
require less coding. 


You also have the added flexibility of using structured program- 
ming techniques or the familiar RPG Ill program logic cycle. 


GENERAL CONCEPTS 


e USE INPUT/OUTPUT SPECIFICATIONS TO DEFINE THE 
DISPLAY FILE 


e CAN BE CODED SIMILAR TO SOME 


— SYSTEM/3 PROGRAMS 
— SYSTEM/34 WORK STATION PROGRAMS 


e CAN USE STRUCTURED PROGRAMMING 
e CAN USE THE RPG LOGIC CYCLE 
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Progress Check: Unit 2 
Record your answers in the space provided. 


1. List two reasons why program described work station files 
would be used. 


2. List at least two coding considerations when specifying 
the data description specifications for a program described 
work station file. 


3. When must KPASS *NOIND be specified on the file descrip- 
tion specification for a program described work station file? 


4. Are command key indicators KA-KN and KP-KY unique to 
RPG Ill programs using program described work station 
files? 


5. How is a screen format name referenced on the output 
specification for a program described work station file? 
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NOTES 


Module 12 12-5 


MODULE SUMMARY 


A program described work station file can be used with a 
format name or without a format name specified on your out- 
put specifications. 


If you use a format name: 
e Indicators may be passed to and from your program. 
e Command keys may be defined. 


e Input/output fields are listed in the same sequence as they 
are coded in DDS. However, the fields names do not have 
to be the same. 


If you don’t use a format name: 
e No indicators are passed to your program. 
e No command key indicators are defined. 


e The input record is treated as a single field. The output 
record is treated as a string of characters. Each record dis- 
played overlays the previous record displayed. 


Module 13 discusses how to create a printer device file and the 
reasons why a printer device file would be used. 
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Module 13 - Printer Device Files 


MODULE PURPOSE 


Module 13 illustrates how printer device files are coded and 
created as well as their probable uses as an alternative to 
program described printer files. 


TIME ESTIMATE 


1 hour 


MODULE OBJECTIVES 
Upon completion of this module, you should be able to: 
e List the specification entries for a printer device file. 


e Code the control language command to create a printer de- 
vice file. 


e List 3 reasons why a printer device file would be used. 


e Write how to control overflow for an external printer de- 
vice file. 


Module 13. 13-1 


TERMS 





These terms are described/defined within the module. - 
e UNDERLINE 

e BLKFOLD 

e INDTXT 

e DFT 

e SKIPA 

e SKIPB 

e SPACEA 

e SPACEB 

e PAGNBR 
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Overview 


¢ External printer device files offer an alternative to program 
described files. 


Printer files are defined and created in the same manner as 
display, physical, and logical files. Refer to the chart. 


PRINTER FILE DESCRIPTIONS 
EXTERNAL TO ANY PROGRAM 
DEFINED AS PRINTER FORMATS 
ARE CODED ON DATA DESCRIPTION SPECIFICATIONS 
es DEFINED AT THREE LEVELS 


— RECORD 
— FIELD 


ONE PRINTER FILE MAY CONTAIN ALL THE FORMATS FOR 
ONE PROGRAM OR ONE APPLICATION 
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Progress Check: Unit 2 


Record your answers in the space provided. 





1. List at least two reasons why a printer device file would be 
used instead of using the RPG Ill output specifications. 


2. List two ways the overflow line for a printer device file can 
be monitored. 


3. How can a report be retained in the spool file after it has 


printed? } 





4, When using full functional file processing, what RPG Ill opera- 
tion permits controlling the printing logic within calcula- 
tions without using an externally described file? 


When you have completed the questions, return to Mod- 


ule Text 13 to review your answers. 
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NOTES 





Module 13 13-5 


MODULE SUMMARY 


Printer device files offer additional tools to support youl pro- 
gramming requirements such as: 





Use of special keywords - UNDERLINE, BLKFOLD. 


The same record can be printed under different formats by 
issuing multiple writes. 


Formats from different printer files can be printed on a sin- 
gle report. 


Printing logic is external to the program. 


Ease of use. For example, if there’s a change in the forms 
for a particular application. Modify the printer data descrip- 
tion specifications and recompile. In most instances, your 
program will not have to be changed. 


You have now come to the end of System/38 RPG III 


and Structured Programming. At this time, go to the 
next section and read the ‘“‘Course Summary”. 
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Chapter 14. Course Summary 


Now that you have completed the System/38 RPG III and Struc- 
tured Programming course, you will want to continue to code 
and test programs on your own system. 


You will find in the Appendix of the Student Materials Book a 
number of references (field reference file, job description, 
profile) that you may wish to use with your applications. 


As a result of taking this course, you should be able to code, 
compile, and test RPG Ill structured programs for: 


e Normal inquiry 

e Inquiry with update 

e File maintenance 

e Data areas 

e Data structures 

e Subfiles 

e Passing/receiving parameters 


e Handling exception errors 


Return your Module Texts to your Guided Learning Center 
Administrator. Remember, the Student Materials Book, 


flowcharts, program listings, and debugging templates are 
yours to keep. See your Administrator for final directions. 
Best wishes and good programming. 





Course Summary 14-1 
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Appendix A. References 


The appendix consists of your field reference file, job description, 
and user profile. 


Appendix A A-1 


FIELD REFERENCE FILE 


MEMBER PAGE 
APPFREF 1 
——-—— + —— 1, -- - -— + 2 - 4 2 8 t+ 5 4+ -- - - § - - + - - -- J - + - 8 


A* 


A** FIELD REFERENCE FILE FOR ACCOUNTS PAYABLE 


A** STUDENT EXERCISES 


Ax 

A R REFFMT 

Ax 

A*x* FIELDS USED IN MULTIPLE RECORDS 
A* 

A VNDNBR 5 0 
A 

A DEPTNO 3 0 
A 

A ACTCD 1 

A 

Ax 

A** FIELDS IN VENDOR MASTER RECORD 
Ax 

A VNDNAM 25 

A 

A VNDADI 25 

A 

A VNDAD2 25 

A 

A VNDAD3 25 

A 

A VNDZIP 5 O 
A 

A VNDACD 3: 0 
A 

A VNDPHN ~ O 
A 

A VTRMPC 3: 3 
A 

A VTRMDA 2 0 
A 

A VNDCLS 2 0 
A 

A VNDSLS 25 

A 

A DCTMTD T 2 
A 

A DCTYTD 9 2 
A 

A PCHMTD 9 2 
A 

A PCHYTD 14 2 
A 

A BALOWE 9 2 
A 

A SRVRTG 1 

A 

A DELRTG 1 

A 

A SCHCOD 10A 

A 
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TEXT('FIELD REFERENCE FILE') 


TEXT('VENDOR ID NUMBER' ) 
COLHDG('VENDOR' 'NUMBER'! ) 
TEXT('DEPARTMENT CHARGED! ) 

COLHDG( ‘DEPARTMENT! 'NUMBER'! ) 
TEXT('A=ACTIVE D=DELETE S=SUSPEND' ) 
COLHDG('ACTIVE' "RECORD! 'CODE') 


TEXT('VENDOR NAME!) 
COLHDG('VENDOR! 'NAME!) 
TEXT('ADDRESS LINE 1') 
COLHDG('ADDRESS LINE 1') 
TEXT('ADDRESS LINE 2') 
COLHDG('ADDRESS LINE 2') 
TEXT('ADDRESS LINE 3') 
COLHDG('ADDRESS LINE 3') 
TEXT('ZIP CODE') 

COLHDG('ZIP' 'CODE') 

TEXT('AREA CODE') 

COLHDG('AREA' 'CODE') 
TEXT('PHONE NUMBER * ) 
COLHDG('PHONE! ) 

TEXT('NORMAL PROMPT PAY DISCOUNT &') 
COLHDG('TERMS! '%') 

TEXT('*NORMAL NO. OF DAYS FOR TERMS') 
COLHDG('TERMS! 'DAYS') 
TEXT('VENDOR CLASS!) 
COLHDG('CLASS') 

TEXT('VENDOR SALESMAN! ) 
COLHDG('SALESPERSON'! ) 
TEXT('DISCOUNT TAKEN THIS MONTH!) 
COLHDG('DISCOUNT! 'TAKEN! 'MTD') 
TEXT('DISCOUNT TAKEN THIS YEAR!) 
COLHDG('DISCOUNT' 'TAKEN! 'YTD') 
TEXT('PURCHASE THIS MONTH!) 
COLHDG('PURCHASES' 'YTD') 

TEXT( "PURCHASES THIS YEAR') 
COLHDG('PURCHASES! 'YTD') 
TEXT('BALANCE OWED') 
COLHDG('BALANCE! 'QWED') 
TEXT('SERVICE RATING') 
COLHDG('SERVICE!' 'RATING') 
TEXT('DELIVERY RATING!) 
COLHDG('*DELIVERY! 'RATING') 
TEXT('SEARCH CODE!) 
COLHDG('SEARCH!' 'CODE') 








MEMBER PAGE 
Cc APPFREF 2 
mann ta nn tt a nt 8 nn tn Gt 5 tt 6 +t - -- - J - + ---- 8 
A CHECK (ME ) 
A COMNIS 25 TEXT('COMMENTS ABOUT THIS VENDOR!) 
A COLHDG('COMMENTS ABOUT! 'VENDOR'! ) 
Ax 
A** FIELDS USED IN TRANSACTION RECORD 
A* 
A INVNBR 8 TEXT('VENDORS INVOICE AMOUNT!) 
A COLHDG('VENDOR! tINVOICE' 'NUMBER!) 
A DATREC 6 0O TEXT('DATE RECEIVED! ) 
A COLHDG('DATE' "RECEIVED! ) 
A MERCH T 2 TEXT(MERCHANDISE AMOUNT ¢) 
A EDTCDE(3) 
A COLHDG('MERCHANDISE! 'AMOUNT'!) 
A NET T 2 TEXT('NET AMOUNT PAID') 
A EDTCDE(3) 
A COLHDG('NET' "AMOUNT! 'PAID') 
A STATUS 1 TEXT('E=ENTERED T=TO PAY D=DELETE + 
A P=PAID!) 
A COLHDG('tSTATUS! 'OF' "RECORD '!) 
A DTPAID 6 0 TEXT('DATE PAID!) 
A COLHDG(*DATE' 'PAID!') 
A CHECK# 6 QO TEXT('CHECK NUMBER ! ) 
A COLHDG('CHECK!' "NUMBER! ) 
A* 
A** FIELDS USED IN DEPARTMENT MASTER 
A* 
bd A DNAME 15 TEXT('DEPARTMENT NAME ! ) 
A COLHDG('DEPARTMENT! 'NAME'!) 
A BUDMTD 9 2 TEXT('AMOUNT BUDGETED THIS MONTH' ) 
A COLHDG('BUDGET' 'AMOUNT! 'MTD') 
A BUDY TD 11 2 TEXT('AMOUNT BUDGETED THIS YEAR!) 
A COLHDG('BUDGET' 'AMOUNT! ‘'YTD') 
A DISMTD 9 2 TEXT('AMOUNT DISPERSED THIS MONTH! ) 
A COLHDG('DISPERSED! 'MTD!') 
A DISYTD 11 2 TEXT(*AMOUNT DISPERSED THIS ¥EAR') 
A COLHDG('DISPERSED!' ‘'YTD!) 
A GLACT 6 QO TEXT('GENERAL LEDGER ACCOUNT NBR!) 
A COLHDG('G/L' "ACCOUNT! 'NUMBER'® ) 
Ax 
A* FIELDS USED IN ITEM MASTER FILE 
Ax 
A ITMNBR 5 O TEXT('ITEM NUMBER! ) 
A COLHDG('ITEM! ‘NUMBER! ) 
A ITMDSC 25 TEXT('ITEM DESCRIPTION!) 
A COLHDG('ITEM!' "DESCRIPTION! ) 
A I TMOOH 7 O TEXT(*QUANTITY ON HAND!) 
A COLHDG('QUANTITY' 'ON HAND! ) 
A ITMOOO t 0 TEXT('QUANTITY ON ORDER") 
A COLHDG('QUANTITY' ‘ON ORDER' ) 
A ITMCST > <2 TEXT('ITEM UNIT COST!) 
A COLHDG('ITEM' 'UNIT' 'COST!) 
A ITMPRC 5 2 TEXT('ITEM UNIT PRICE!) 
A COLHDG('ITEM! ‘UNIT! 'PRICE!) 
A CATNBR t TEXT(*VENDOR CATALOG NUMBER! ) 
A COLHDG('VENDOR! tCATALOG! *NUMBER'*) 


C 
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MEMBER PAGE 
APPFREF 3 
—--= + ----)-- == t= 2-- = $3 $5 nn ¢ = = J ---- 8 


Ax 
A** FIELDS USED FOR PURCHASE ORDERS 
Ax 


A PORNBR 6 0 
A 
A DATORD 6 0O 
A 
A ITMAMT v: -2 
A 
A QTYORD 5 0 
A 
A QTYREC 5 0 
A 
A DATDUE 6 O 
A 
A* 
A*x* ADDITIONAL FIELDS 
Ax 
A DUYR 2 0 
A 
A 
A DUMODY 4 0 
A 
A. 
A DCTAVL 5 2 
A 
A 
A 
A 
A DUDATE 6 0O 
A 
A 
A 
A 

(3 of 3) 
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TEXT('PURCHASE ORDER NUMBER! ) 


COLHDG('PURCHASEt 'ORDER! 'NUMBER'! ) 
TEXT(tDATE ORDERED') 

COLHDG('DATE! 'ORDERED!) 

TEXT(C'ITEM EXTENDED AMOUNT! ) 
COLHDG('ITEM' "EXTENDED! 'AMOUNT') 


TEXTC'ITEM ORDERED QUANTITY') 
COLHDG('ITEM! 'ORDERED' 'QUANTITY') 
TEXT('ITEM QUANTITY RECEIVED!) 


COLHDG('ITEM' 'QUANTITY' ‘RECEIVED! ) 
TEXT(C'INVOICE DUE DATE') 
COLHDG(tINVOICE' "DUE' 'DATE') 


TEXT('VENDOR INVOICE DUE DATE+ 

- YEAR') 

COLHDG('INVOICE' 'DUE' 'YEAR') 
TEXT('VENDOR INVOICE DUE DATE + 

—- MONTH DAY') 

COLHDG('INVOICE' *DUE' 'MONTH-DAY') 
TEXT('VENDOR INVOICE DISCOUNT + 
AVAILABLE! ) 
EDTCDE (3) 
COLHDG( "INVOICE! 
"AVAILABLE" ) 
TEXT('VENDOR INVOICE DUE DATE: + 
MONTH-DAY¥-YEAR  ) 
EDTCDE(Y) 
COLHDG('DISPLAY'! 
—-YR!) 


"DISCOUNT! + 


"DUE-DATE' 'MO-DAY + 














JOB DESCRIPTION 


2/10/83 19:12:13 JOB DESCRIPTION 
JOB DESCRIPTION: JOB PRIORITY: 5 
LIBRARY NAME: GLCRPG JOB QUEUE NAME: QBATCH 
USER PROFILE NAME: GLCRPG LIBRARY NAME: QGPL 
CL SYNTAX CHECK: 30 OUTPUT PRIORITY: 5 
HOLD ON JOB QUEUE: *NO OUTPUT QUEUE NAME: 
CANCEL SEVERITY: 30 LIBRARY NAME: QGPL 
JOB DATE: *SYSVAL JOB LOGGING 
JOB SWITCHES: 00000000 MESSAGE LEVEL: 3 
MESSAGE SEVERITY: 10 
TEXT LEVEL: *MSG 


2/10/83 19:12:46 JOB DESCRIPTION GLCRPG 


ROUTING DATA: QCMDB 


REQUEST DATE: *NONE 


2/10/83 19:13:02 JOB DESCRIPTION GLCRPG 
INITIAL LIBRARY LIST: (READ BY COLUMNS) 

GLCRPG 

QGPL 

QTEMP 

QIDU 

QRPG 
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$974 3/86 13:56:06 


authority: 
storage 


special 
Maximum 
lised : 
Highest 
Initial program 
Library name: 
Job description: 
Library name: 
Group profile: 
Qwner CKUSRERF or 
Group autharity: 
Accounting code: 
Message 
Library: 

Output queue name: 
Library name: 
Date of last 
Text: 
user 


pratfile for 


40/43/86 14:55:29 


CRTCLFEGM 
CRTDSFF 
CRTDTAARA 
CRTLE 
CRTFF 
DSEEGMMANU 
ENTDEG 
QOVRFR TF 


10/44/86 13:51:39 


ORJECT 
CRTCLEGM 
CRIDSEF 
CRTDTAARA 
CR TLE 
CRTRE 
DSFEGMMNU 
ENTDEG 
QOVURER TF 
GLCGRF 
GLCORFG 
GLCOREG 

RF GOSRC 
QFGMMENU 


L.IRKRARY 
Qeys 
QS YS 
QSYs 
QSYs 
Qsys 
Qty ys 
QSY¥S 
Qasys 
Qiys 
QAsSYS 
QSYS 
GLCRFEG 
QSy¥s 


USER FROFILE - 


allowed: 


scheduling prtority: 
to call: 


XxGREPRE ) - 


VTuUeUe Name - 


password change: 


REG ITT 


USER PROFILE 
AUTHORT ZED 


USER FROFILE - 
00013 


PROFILE 


GLCRFG 
RASIC INFORMATION 
SFCAUT 
MAXSTG 


PTYLMT 
INLFEGM 


JORD 


GREPRE 
OWNER 
GREAUT 
ACGCDE 
MSGQ 


QOUTQ 


FWDOCHGDAT 
TEXT 
caur se 


~ GLCORFEG 
COMMANDS 


GLCOREG 

AUTHORIZED OBJECTS 
ORJ RIGHTS 

TYFE OPER MGT EXIST 

*%¥CMD x 

¥CMD 

*CMD 

#CMD 

*xCMD 

¥ CMD 

*CMD 

¥ CMD 

ZUSRERE 

XxX USRERE 

¥L IE 

*¥F TLE 

*#F OM 
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®JOBCTL 
*#NOMAX 
09000000000 
5 

RGLSET 
GLCOREG 

*X# NONE 


GLCGRF 
*xGRPERE 
* NONE: 

* NONE 
*NONE 


08/09/86 


DATA RIGHTS 
READ ADD UFD DLT 
x 
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